根据Microsoft Excel中A列中的值从B列中删除重复项

Question

我很容易在A列中删除重复项，但是现在我的值已超过A1048576，现在我只能使用B列，但现在别无选择，但是现在我无法从A列中删除在B列中找到的重复值。我该怎么办？ 如何将A，B，C等列视为一个/单个列。

假设我的A和B列具有这些值

A   B

a   k
b   l
c   a
d   f
e   r
f   
g   

如您所见，列B的值a和f也存在于列A中，因此我想删除a和f。

感谢您在这方面的帮助与合作。

Answer 1

您可以使用VBA遍历所有单元格，但是由于数据中单元格的数量可能需要一段时间才能运行。 这样的事情会起作用：

Sub RemoveDuplicates()

    Dim rng As Range
    Dim x as Long

    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False

    Set rng = ThisWorkbook.Sheets("SheetName").Range("A2:C1048576")

    For x = rng.Cells.Count To 1 Step -1
        If WorksheetFunction.CountIf(rng, rng(x)) > 1 Then
            rng(x).Delete xlShiftUp
        End If
    Next x

    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True

End Sub

上面的子例程将转换为：

A   B

a   d
a   d
a   e
b   e
b   f
c   
c  

变成这个：

A   B

a   d
b   e
c   f