如何从电子表格中的多个列中删除重复值

Question

我遇到了困难，需要你的帮助。我有一个包含6326列和50行的电子表格。我想要做的是从每列中删除重复项并计算唯一元素的数量并与其他列相符

Sub Macro1()
'
' Macro1 Macro
'

'
    Columns("G:G").Select
    ActiveSheet.Range("$G$1:$G$50").RemoveDuplicates Columns:=1, Header:=xlNo
    Range("G1").Select
End Sub

Answer 1

如果您的列是连续的，您可以尝试循环遍历整个范围。

With Sheets("SheetName")
    For i = 0 To 6325
        .Range("G1:G50").Offset(0, i).RemoveDuplicates Columns:=1, Header:=xlNo
    Next
End With

禁止屏幕更新导致这需要一段时间，并且在速度方面成本很高。