Question

我在A列中轻松删除重复项，但现在我的值已超过A1048576，现在我没有选择，只能使用B列，但现在我无法从A列中删除B列中的重复值。我该怎么办？它？如何将A，B，C等列作为单列/单列处理。

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

adb shell pm uninstall com.xxx.app // replace to package name that you want to remove

如您所见，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

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

1 个答案: