关于vba的问题 为什么运行 会提示 end if 没有if 块

关于vba的问题 为什么运行 会提示 end if 没有if 块

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

改成：
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追问不对啊 这样改完 运行之后 还是没有反应、、、追答你不是只要解决end if模块的问题么？
这边，endif 出错的问题给你解决了啊。。否则哪有什么运行之后 还是没有反应、、、
至于你说运行之后没有反映，可能是因为你A1：A200之间根本没有一个单元格的值等于“城市”,所以就没有结果。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息