IF语句编译错误

我得到了编译错误信息 – 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

您不需要使用End If作为内联If语句。 只要删除它，你会没事的，或者移动到下一行。

如果有多行if语句，则需要使用End If