删除两列中的常见元素

Question

我有2列。一个有400个元素，另一个有600个元素。第二个列表中的600个元素中有400个在第一个列表中。我想删除所有这些，并最终得到200个元素列表。

设置差异。

我如何在Excel中实现这个功能？

Answer 1

假设你的 “400” 名单中列A（表 “realizada”），并在列B “600” 名单（表 “completa”）：

Sub test() 
    Dim lastrow As Long 
    Dim rngToDel As Range, c As Range 
    Dim rng As Range 

    Set rng = ThisWorkbook.Worksheets("realizada").Range("A:A") 

    With ThisWorkbook.Worksheets("completa") 
     lastrow = .Cells(.Rows.Count, "B").End(xlUp).Row 

     For Each c In .Range("B1:B" & lastrow) 
      If Not IsError(Application.Match(c.Value, rng, 0)) Then 
       If rngToDel Is Nothing Then 
        Set rngToDel = c 
       Else 
        Set rngToDel = Union(rngToDel, c) 
       End If 
      End If 
     Next 
    End With 
    rngToDel.Select 
    If Not rngToDel Is Nothing Then rngToDel.Delete Shift:=xlShiftUp 
End Sub