相关疑难解决方法(0)

有更快的方法吗？

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++这样的语言中,这根本不是问题).