Sub DELCO()
Dim i As Integer
i = 0
xunhuan:
On Error GoTo eend
Cells.Find(What:="关键字").Select
/*注释：EntireRow--按行，EntireColumn--按列*/
1Selection. EntireRow. Delete
i = i + 1
GoTo xunhuan
eend:
MsgBox (i & "行被删除了")
End Sub
这个代码再怎么增加第二条关键字

质寻 学-sql-到-siki学院 -------呐短 猩犹瓶芭纫计钒诼旱僖共吻章捕