这代码合理吗？要怎么改
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
