Excel VBA-公式计数唯一值错误

Question

我正在尝试根据条件计算唯一值的计数。

例如，

对于B列中的值，我试图通过VBA计算C列中的“唯一”值。

我知道如何使用Excel公式-

 =SUMPRODUCT((B2:B12<>"")*(A2:A12=32)/COUNTIF(B2:B12,B2:B12))

32的值是动态的-以编程方式我在vba代码中将它们称为Name

这是我的代码：

Application.WorksheetFunction.SumProduct((rng <> "") * (rng2 = Name) / CountIfs(rng, rng))

这是带有要求的样本数据

另外，我将这两列连接起来以保持简单，并希望标识以name *方法开头的Unique值。

我不知道我要去哪里错了。 请分享您的想法。

Answer 1

您可以尝试这样的事情...

Function GetUniqueCount(Rng1 As Range, Lookup As String) As Long
Dim x, dict
Dim i As Long, cnt As Long
Set dict = CreateObject("Scripting.Dictionary")
x = Rng1.Value
For i = 1 To UBound(x, 1)
    If x(i, 1) = Lookup Then
        dict.Item(x(i, 1) & x(i, 2)) = ""
    End If
Next i
GetUniqueCount = dict.Count
End Function

然后您可以像下面一样使用它...

=GetUniqueCount($A$2:$B$10,C2)

其中A2：B10是数据范围，而C2是名称标准。

Answer 2

我将这些值放入一个数组中，创建一个临时的第二个数组，仅在尚不存在的情况下将值添加到该数组中，然后替换原始数组。 然后，将唯一值相加就很简单了：

Sub Unique

dim arr(10) as variant, x as variant
dim arr2() as variant

for x = 1 to 10 ' or whatever
   arr(x) = cells(x, 1) ' or whatever
next x

arr2 = UniqueValuesArray(arr)

' now write some code to count the unique values, you get the idea

End Sub

---

Function UniqueValuesArray(arr As Variant) As Variant()

Dim currentRow, arrpos As Long
Dim uniqueArray() As Variant
Dim x As Long

arrpos = 0
ReDim uniqueArray(arrpos)

For x = 0 To UBound(arr)
    If UBound(Filter(uniqueArray, arr(x))) = -1 Then
        ReDim Preserve uniqueArray(arrpos)
        uniqueArray(arrpos) = arr(x)
        arrpos = arrpos + 1
    End If
Next x

UniqueValuesArray = uniqueArray

End Function