Question

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

设定差异。

如何在Excel中实现此目的？

Answer 1

假设你的＆＃34; 400＆＃34;列A中的列表（表＆＃34; realizada＆＃34;）和＆＃34; 600＆＃34;列B中的列表（表＆＃34; completa＆＃34;）：

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

从两列中删除公共元素

1 个答案: