EXCEL宏命令缺少语句结束怎么解决，求高手指教

2024-12-15 14:19:32

推荐回答（5个）

回答1：

Sub delete_words()
For i = 501 To 7 step -1
If InStr(Range("B" & CStr(i)).Text, "Ь") > 0 Then
Rows(CStr(i) & ":" & CStr(i)).Select
Selection.delete shift:=xlUp
End If
Next i
End Sub

回答2：

第一行写的有问题，sub后要直接接方法名，比如直接就是
sub DeleteWords()

回答3：

delete words()两单词中间空格去掉

回答4：

虽然vba支持中文
命名过程，变量，自定义函数名，但是我还是建议你把名字弄成英文字母和数字的组合，并且不要有空格，空格用下划线代替！

回答5：

变量i未进行定义啊，例如 dim i as long