excel宏逐列删除重复项

Question

我有一个包含27列（A：AA）的工作表（Sheet1）。每列的产品名称以一个字母开头，AA列包含以数字开头的名称。 Sheet1中的产品名称数量超过150万。我已经实现了以下宏来以升序方式（a-z）对每个列的数据进行排序，并且它工作正常。是否可以修改此脚本以删除每列的重复名称，直到最后一列（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

非常感谢对此事的任何帮助。