如何一次删除多个列的单个列中的重复值

如何一次删除所有列中的单个列中的重复值？

如果我在Excel中select“ Remove Duplicates工具并select多个列，则假定我正在查找跨列的重复项。

我想要的是删除单个列中的重复项，但我不想单独单击每个列。

• 例如，假设我有一个包含500列的电子表格。 我想删除列1（“A”）中的所有重复值，然后删除列2（“B”）中的所有重复的列，等等，通过列500。

---

我试过的东西：

1. loggingmacros。 结果：

    ActiveWindow.ScrollColumn = 1 Columns("A:A").Select Application.CutCopyMode = False ActiveSheet.Range("$A$1:$A$582").RemoveDuplicates Columns:=1, Header:=xlYes 

   正如你所看到的，对于一些反应，它会自动select列“A”。 我不知道如何一般地select我select的列的字母。 SOOO …

2. 我尝试了以下内容：

    Col = Split(ActiveCell(1).Address(1, 0), "$")(0) Application.CutCopyMode = False ActiveSheet.Range("Col1:Col1581").RemoveDuplicates Columns:=1, Header:=xlYes 

   但是这也行不通。

我将如何去做这个？

---

我正在使用MS Excel 2010（Professional Plus）

Answer 1

为了简单地遍历列并从列中删除重复项，从A到Z ，可以这样做：

 Sub removeDups() Dim col As Range For Each col In Range("A:Z").Columns With col .RemoveDuplicates Columns:=1, Header:=xlYes End With Next col End Sub 

你可以根据需要调整它，无论是设置一个范围等于你的select，还是将范围扩展到AZ 。