为什么运行会提示 end if 没有 if 块？

Question

Private Sub CommandButton1_Click()Dim i As SingleFor i = 1 To 200If Cells(i, 1) = "城市" Then Cells(i, 2).Value = 2End IfNext iEnd Sub

Answer 1

呵呵，代码有个小错误
if 条件 then 代码
如果写在一行，就不用end if了
如果代码写到下一行，就需要用end if了

Answer 2

改成：
Private Sub CommandButton1_Click()
Dim i As Single
For i = 1 To 200
If Cells(i, 1) = "城市" Then Cells(i, 2).Value = 2
Next i
End Sub

或者：
Private Sub CommandButton1_Click()
Dim i As Single
For i = 1 To 200
If Cells(i, 1) = "城市" Then
Cells(i, 2).Value = 2
End If
Next i
End Sub