Excel的VBA for Uniques

Question

我希望以右侧给出的格式提取Unique。我在其中一个论坛网站上找到了VBA代码，但这个代码并不适合我。有没有办法修改代码或写出更好的东西。我确实有一个公式，但公式是非常耗费资源的，并且非常大的ex​​cel加载非常缓慢。

#define usart_getValueLeastSignificatntBitFirst()   ( __usart_getValueProperty(0, 10) )

{{3}}

Answer 1

我没有测试过，但是这样的话：

Sub FindDistinctValues()
    Dim dict As Object, cell As Range
    Set dict = CreateObject("Scripting.Dictionary")

    For Each cell in Range("A1").CurrentRegion.Resize(, 1)
        If Not dict.Exists(cell & "")
            cell(, 2) = "Unique"
            dict.Add cell & "", 0
        End If
    Next
End Sub