从两列删除共同的元素

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

设置差异。

我怎样才能在Excel中实现这一点？

Answer 1

假设列A （表“realizada”）中的“400”列表和列B （表“completa”中的“600”列表）：

 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