excel中如何删除关键字的那一行以及同时删除它的下一行

Question

excel中如何删除关键字的那一行以及同时删除它的下一行
例如搜索关键字“M0603_GEN_1_A”，然后就删掉此行及它的下一行，其它行自动向上填充
"M0603_GEN_1_A" "1000-0181_1" "R8106"
42.7595010 79.6871210 0.0000000 -180.0000000

Answer 1

用宏程序
流程：调用输入对话框输入关键字→全文搜索关键字→删除该行及下一行
Sub 删除关键字行程序()
Dim s As String
Dim i As Integer
On Error Resume Next
s = InputBox("请输入关键字", "提示")
Cells.Find(What:=s).Activate
i = ActiveCell.Row
If MsgBox("是否删除关键字所在2行", vbOKCancel, "删除确认对话框") = vbOK Then
Rows(i).Delete
Rows(i).Delete
End If
End Sub追问

感谢您的解答，我已试过，可行。
但遗憾的是，这个操作只能进行一次，如何能让它批处理，把含这个关键字所有行都一次性的删除。
再次感谢！

Answer 2

选中后按“Delete”键

Answer 3

VBA吧