У меня есть следующий код для удаления дубликатов в 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
Это работает нормально. Но может ли быть лучший способ предоставить массив параметру «Столбцы»? То, как он кодирует, выглядит глупо.
Array(1:49)? или Array("1:49") Не знаю, работает ли это так же, как Range() или Columns() 28.01.2015 Поскольку RemoveDuplicates нужен массив Variant с отсчетом от нуля, а не Range, вы можете сделать это с помощью цикла:
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
Обратите внимание на (ary)
Это сделано для устранения очень старой ошибки VBA.
