vb显示缺少endif

Sub ceshi()
For lie = 6 To 6
Sheets("sheet1").Select
If WorksheetFunction.Or(ActiveSheet.Cells(2, lie).Value <= ActiveSheet.Cells(1, lie + 8).Value, ActiveSheet.Cells(2, lie).Value = "") Then
If (ActiveSheet.Cells(2, lie + 1).Value < ActiveSheet.Cells(1, lie + 8).Value) Then
ActiveSheet.Cells(2, lie + 8).Value = ActiveSheet.Cells(2, lie + 1).Value
lie = lie + 1
Else
ActiveSheet.Cells(2, lie + 8).Value = ActiveSheet.Cells(2, lie).Value

End If
Else
'If (WorksheetFunction.Or(ActiveSheet.Cells(2, lie).Value >= ActiveSheet.Cells(1, lie + 8).Value, ActiveSheet.Cells(2, lie).Value = "")) Then
For lie2 = 0 To 4
If WorksheetFunction.Or(ActiveSheet.Cells(2, lie).Value <= ActiveSheet.Cells(1, 15 + lie2).Value, ActiveSheet.Cells(2, lie).Value = "", ActiveSheet.Cells(2, lie).Value = " ") Then
ActiveSheet.Cells(2, lie + 9 + lie2).Value = ActiveSheet.Cells(2, lie).Value
Else
lie2 = lie2 + 1

End If

End If
Next lie
End Sub

其实是少了一个Next lie2

在编译的时候起作用，能够在一定程度上保证程序的安全性，避免出现不可预知的错误。 如果if用了一条语句写完，那么没有endif问题不大，但如果if下面有多条语句，那就一定要有。