如何删除EXCEL中所有关键字所在行

打开工程管理器，或同时按下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

首先,你所带"无效"二字的内容是不是都在一行或者一列里?

如果是,那么:
数据==>筛选==>自动筛选==>点无效所在的行或列出现的符号==>自定义==>左边选包含,右边填"无效"==>然后全选,再删除就可以了

查找--无效--查找全部--选中查找结果--删除行