获取范围外的唯一值

Question

所以我正在尝试创建一个函数，该函数将获取一个范围内的所有唯一值，我是新的 vba，所以我进行了尝试，但它不起作用（#VALUE）。我最终希望数组中的每个值都输出到它下面的一个单元格。

这是我写的代码

Option Explicit

Function getUnique(dataSet As Range, Column As String)

Dim data() As String
Dim dataSize As Integer
Dim dictionary As Object
Dim i As Long

dataSize = dataSet.Rows.Count
Set dictionary = CreateObject("Scripting.Dictionary")


ReDim data(dataSize)
For i = 1 To UBound(data)
data(i) = dataSet(Column & i).Value
dictionary(data(i)) = 1
Next i

Dim v As Variant
For Each v In dictionary.Keys()

Debug.Print dictionary.Keys

Next v

Answer 1

您的代码可以进行一些更改，如下所示：

Function getUnique(dataSet As Range) '<<< remove Column

    Dim data() As String
    Dim dataSize As Integer
    Dim dictionary As Object
    Dim i As Long

    dataSize = dataSet.Rows.Count
    Set dictionary = CreateObject("Scripting.Dictionary")


    ReDim data(dataSize)
    For i = 1 To UBound(data)
        data(i) = dataSet.Cells(i, 1).Value    '<<< using Cells
        dictionary(data(i)) = 1
    Next i

    Dim v As Variant
    For Each v In dictionary.Keys()
        Debug.Print v    '<<< 
    Next v
End Function

---

但是，如果您尝试在工作表单元格中使用此函数，那么如果您尝试将值放入其他单元格中，它将不起作用。用户定义的函数不能这样工作，您必须将其设为 Sub 并在单击按钮或其他事件时运行它。