Sub DELCO()
Dim i As Integer
i = 0
xunhuan:
On Error GoTo eend
Cells.Find(What:="关键字").Select     
Selection. EntireRow. Delete
Cells.Find(What:="关键字2").Select   
Selection. EntireRow. Delete
i = i + 1
GoTo xunhuan
eend:
MsgBox (i & "行被删除了")
End Sub

你是要放VB里面用还是直接在VBA里面用，两个有点区别哈

用在Excel里

一看就是VBA宏

学习一下

改了一下。这样比较合理。

Sub DELCO()
Dim i As Long, j As Long
j = 0
For i = 1 To 1048576  'Excel 2007的总行数
If Cells.Find("关键字6").Select = True Then
Selection.EntireRow.Delete
j = j + 1
End If

If Cells.Find("关键字7").Select = True Then
Selection.EntireRow.Delete
j = j + 1
End If

MsgBox "共删除了" & j & "行"

Next
End Sub

[此贴子已经被作者于2022-10-8 18:53编辑过]