2013-10-10 56 views
1

我有幾千列數據,我需要在查看下一列之前刪除每個單獨列中的重複記錄。我在錄製宏時創建了這個代碼,但它只是在執行我專門輸入的列,我希望它繼續查看未來的列,直到沒有更多的數據。刪除每列中的重複項並檢查圖表中的每一列

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 

回答

0

這應該做的伎倆:

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