刪除兩列中的常見元素

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