excel宏以逐列删除重复项

我有一份工作表（表1），包含27列（a:AA）。每列都有以一个字母开头的产品名称，AA列包含以数字开头的名称。表1中产品名称的数量超过150万个。我已经实现了以下宏，以升序方式（a-z）对每列的数据进行排序，它工作得很好。是否可以修改此脚本以删除每列的重复名称，直到最后一列（AA）？列之间没有比较，只是每个列单独进行排序，并删除重复的值（产品名称）

---

非常感谢在这件事上提供的任何帮助。

尝试进入这一行：

rCell.entireclumn.RemoveDuplicates 1

对于范围内的每个RCEL（“A2:AA2”）是的，KazJaw，它成功地做到了。非常感谢您及时、专业的回答。最好的。在输入KazJaw的建议行后，使用有问题的脚本是成功的，但我注意到它并没有消除空白单元格。因此，我在所有列中都找到了间隙，尽管它们已排序且未找到重复项。你有什么意见来修复这个错误吗？但是你在底部有空白单元格吗？将完整的代码显示为对问题的编辑非常感谢KazJaw。我想我现在知道是什么导致了这个问题。我在一个主宏中包含了这个子宏，它一个接一个地运行三个宏。因此，数据没有通过主宏按预期正确“堆叠”。当我自己运行sub-sortProductNames时，它确实对DUP进行了排序和删除，并且没有留下空单元格！！因此，它现在脱离主宏，并将自行运行。再次感谢卡兹贾夫的真诚合作。

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