엑셀 VBA

Question

에 배열 코딩 나는 Excel에서 중복을 제거하려면 다음 코드를 :

AlertRange.RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, _ 
    7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, _ 
    34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49), Header:=xlNo 

그것은 잘 작동합니다. 그러나 "Columns"매개 변수에 배열을 제공하는 더 좋은 방법이있을 수 있습니까? 코드가 어리석은 것처럼 보입니다.

Answer 1

이후 RemoveDuplicates 당신은 루프를 만들 수 오히려 범위보다 변형, 0부터 배열을 원하는 :

Sub Macro() 
    Dim ary(0 To 48) 

    For i = 0 To 48 
     ary(i) = i + 1 
    Next i 

    Range("$A$1:$BB$20").Select 
    ActiveSheet.Range("$A$1:$BB$20").RemoveDuplicates Columns:=(ary), Header _ 
     :=xlNo 
End Sub 

가 (워)를 참고
이 아주 오래된 VBA 버그를 수용하는 것입니다.