エクセルVBAで表の重複行の削除

質問

仮にB2:AA32の範囲の表の全列のデータが重複している行を削除する場合は以下のようなコードになると思います。
質問は、列の指定の=Array(1,～, 26)の部分をもっと簡略化する方法ことはできないかです。
ご教示ください。

ActiveSheet.Range("$B$2:$AA$32").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), Header:=xlYes

回答No.1

kkkkkm · ベストアンサー

ExcelVBAのRemoveDuplicatesの使い方を調べてみた
https://www.excel-chunchun.com/entry/RemoveDuplicates
こちらの真ん中あたりに
'選択範囲のすべての列で重複するレコードを削除する
というコードがありますが、どうでしょう。

お礼

ありがとうございます。
Sub OK0()
With ActiveSheet.Range("$B$2:$AA$32")
Dim i As Long
Dim arr As Variant

ReDim arr(0 To .Columns.Count - 1)
For i = LBound(arr) To UBound(arr)
arr(i) = i + 1
Next
.RemoveDuplicates Columns:=CVar(arr), Header:=xlYes
End With
End Sub
で目的を達成しました。
とても勉強になりました。