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

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

禁止屏幕更新，因为这将需要一段时间并且速度成本高昂。