excel - 列ごとに重複を削除するExcelマクロ

Question

27 列 (A:AA) を含むワークシート (Sheet1) があります。各列にはアルファベット 1 文字で始まる製品名があり、列 AA には数字で始まる名前が含まれています。Sheet1 の製品名の数は 150 万を超えています。各列のデータを昇順 (az) で並べ替える次のマクロを実装しましたが、正常に動作します。このスクリプトを変更して、最後の列 (AA) まで列ごとに重複する名前を削除することはできますか? 列間の比較はありません。並べ替えられ、重複する値 (製品の名前) が削除されるのは、各列だけです。

Sub SortProductNames()
Dim rCell As Range

With Worksheets("Sheet1")
For Each rCell In Range("A2:AA2") 
    rCell.EntireColumn.RemoveDuplicates 1 'added as recommended by KazJaw
    rCell.EntireColumn.Sort Key1:=rCell(2, 1), _
    Order1:=xlAscending, Header:=xlYes
Next rCell
End With

Application.ScreenUpdating = True
End Sub

この件に関するご支援をお待ちしております。