批量删除含有指定关键词的行——EXCEL 宏

Sub QQDelData()
Dim i&, j&, Jm&, Arr, Brr, Crr, TM
TM = Timer
Arr = Range([表A!A2], [表A!A65536].End(xlUp))
Brr = Range([表B!A2], [表B!A65536].End(xlUp))
ReDim Crr(1 To UBound(Arr), 0)
For i = 1 To UBound(Arr)
If Arr(i, 1) = “” Then GoTo 101
For j = 1 To UBound(Brr)
If InStr(” ” & Arr(i, 1), Brr(j, 1)) > 1 Then GoTo 101
Next j
Jm = Jm + 1: Crr(Jm, 0) = Arr(i, 1)
101: Next i
[表A!A2:A65536].ClearContents
[表A!A2].Resize(Jm) = Crr
MsgBox “共刪除 ” & UBound(Arr) - Jm & ” 行，使用 ” & Timer - TM & ” 秒 ”
End Sub