Question

很抱歉，如果我复制了一个简单的问题，我已经进行了多次搜索，并且无法解决任何我可以用来构建我正在寻找的代码的问题。我有两个来自主列表的工作表，其中列A中有唯一的记录编号。一个工作表（Air）包含我想从另一个工作表中删除的记录（混合）。我可以使用以下代码完成此操作，但我有超过11k的记录，而且这种方式相当费时。有没有办法用数组做这个，所以宏不能在每个记录的工作表之间切换？

Dim SearchCell As Range
Dim SearchTerm As Variant
Sheets("Air").Select
Range("A3").Select
Do
SearchTerm = ActiveCell.Value
Sheets("Mixed").Select
Columns("A").Select
Set SearchCell = Cells.Find(What:=SearchTerm)

If SearchCell Is Nothing Then
    Sheets("Air").Select
    ActiveCell.Offset(1, 0).Select
Else
    Cells.Find(What:=SearchTerm).Activate
    ActiveCell.EntireRow.Select
    Selection.Delete Shift:=xlUp
    Sheets("Air").Select
    ActiveCell.Offset(1, 0).Select
End If

Loop Until ActiveCell.Value = ""

比较两个范围并删除具有重复项的行

0 个答案: