excel - 在 VBA 中获取列的所有唯一值的更快方法？

Question

有没有更快的方法来做到这一点？

Set data = ws.UsedRange

Set unique = CreateObject("Scripting.Dictionary")

On Error Resume Next
For x = 1 To data.Rows.Count
    unique.Add data(x, some_column_number).Value, 1
Next x
On Error GoTo 0

此时 unique.keys 得到了我所需要的，但是对于具有数万条记录的文件来说，循环本身似乎非常慢(而这根本不是问题尤其是 Python 或 C++ 等语言)。

Answer 1

使用 Excel 的 AdvancedFilter 函数来执行此操作。

对于较小的数据集，使用 Excel 内置的 C++ 是最快的方法，对于较大的数据集，使用字典更快。例如:

复制 A 列中的值并将唯一值插入 B 列中:

Range("A1:A6").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("B1"), Unique:=True

<小时/>

它也适用于多列:

Range("A1:B4").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("D1:E1"), Unique:=True

要小心多列，因为它并不总是按预期工作。在这些情况下，我会采取删除重复项的方法，方法是选择一系列列以保证唯一性。引用:MSDN - Find and remove duplicates

这里我根据第三列删除重复的列:

Range("A1:C4").RemoveDuplicates Columns:=3, Header:=xlNo

这里我根据第二列和第三列删除重复的列:

Range("A1:C4").RemoveDuplicates Columns:=Array(2, 3), Header:=xlNo