删除每列中的重复项并检查图表中的每一列

我有几千列的数据，我需要删除每个单独的列中的重复logging，然后再看下一列。 我有这个代码是在我录制macros时创build的，但是它只是做了我专门input的列，我希望它继续查看未来的列，直到没有更多的数据。

Sub DUPLICATE() ' ' DUPLICATE Macro ' ' Keyboard Shortcut: Ctrl+d ' ActiveSheet.Range("$T$1:$T$12").RemoveDuplicates Columns:=1, Header:=xlNo Columns("U:U").Select ActiveSheet.Range("$U$1:$U$12").RemoveDuplicates Columns:=1, Header:=xlNo Columns("V:V").Select ActiveSheet.Range("$V$1:$V$12").RemoveDuplicates Columns:=1, Header:=xlNo Columns("W:W").Select ActiveSheet.Range("$W$1:$W$12").RemoveDuplicates Columns:=1, Header:=xlNo Columns("X:X").Select ActiveSheet.Range("$X$1:$X$12").RemoveDuplicates Columns:=1, Header:=xlNo End Sub 

Answer 1

这应该做的伎俩：

 Sub DeleteDublicates() Dim i As Integer For i = 1 To ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column Step 1 ActiveSheet.Range(Cells(1, i), Cells(Cells(Rows.Count, i).End(xlUp).row, i)).RemoveDuplicates Columns:=1, Header:=xlNo Next i End Sub