怎么删除关键字excel表格

1.EXCEL怎么删除关键词所在行

打开工程管理器，或同时按下ALT+F11插入模块粘贴代码后运行宏Sub 删除行（）Y = 1 '表示A列，可自行修改。

X1 = 1X2 = Cells(65536, 1).End(xlUp).RowNUM = 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 NextEnd Sub。

2.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

3.如何删除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