excel - excel宏逐列删除重复项

Question

我有一个包含 27 列 (A:AA) 的工作表 (Sheet1)。每列都有以一个字母开头的产品名称，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

非常感谢您在此问题上提供的任何帮助。