尝试更改此行
If IsError(Application.Match(.Range("A" & i).Value, Sheets("Whitelist").Columns("A"), 0)) _ Then .Rows(i).Delete
对此
If IsError(Application.Match(.Range("A" & i).Value, Sheets("Whitelist").Columns("A"), 0)) _ Then .Range("A" & i & ":B" & i).Delete Shift:=xlUp
这只会删除中的单元格 columns A和B.
columns
使用 Shift:=xlUp 将允许您删除您定义的范围内的特定单元格,并移动该范围内的整个单元格块。
Shift:=xlUp