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

我被困住了，需要你的帮助。 我有一个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 

抑制屏幕更新，这将需要一段时间，在速度方面是昂贵的。