excel - 根据 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