打开工程管理器,或同时按下ALT+F11
插入模块
粘贴代码后运行宏
Sub 删除行()
Y = 1 '表示A列,可自行修改。
X1 = 1
X2 = Cells(65536, 1).End(xlUp).Row
NUM = 0
For X = X1 To X2
Do While Mid(Cells(X, Y), 1, 2) = "无效" And X + NUM <= X2 '无效是要删除的字符行
Rows(X).Select
Selection.Delete Shift:=xlUp
NUM = NUM + 1
Loop
Next
For X = X1 To X2
Do While Cells(X, Y) = "" And X + NUM <= X2
Rows(X).Select
Selection.Delete Shift:=xlUp
NUM = NUM + 1
Loop
Next
End Sub
温馨提示:答案为网友推荐,仅供参考