각 열의 중복을 제거하고 차트의 모든 열을 확인하십시오.

Question

나는 수천 개의 데이터 열을 가지고 있으며 다음 열을보기 전에 각 열의 중복 레코드를 제거해야합니다. 매크로를 기록 할 때 생성 된이 코드는 가지고 있지만 특별히 입력 한 열만 처리하고 있으며 더 이상 데이터가 없을 때까지 계속 미래 열을 계속보고 싶습니다.

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 

을