IF语句编译错误

Question

我收到了编译错误消息 - End If without If Block。任何人都可以告诉我的代码有什么问题：

Sub Find()

Dim i As Integer
Dim j As Integer
Dim k As Integer

For i = 2 To 107
For j = 4 To 6
    For k = 2 To 573
    If InStr(Sheet2.Cells(k, 7), Sheet1.Cells(i, j)) <> 0 Then Sheet2.Cells(k, 12) =         Sheet2.Cells(k, 9)
    End If
    Next k
Next j
Next i

End Sub

Answer 1

对于内联If语句，您不需要使用End If。只需将其移除即可，或者将其移动到下一行。

如果您有多行if语句

，则需要使用End If