计算以特定名称开头的VBA中唯一值的计数

Question

我想识别以特定名称John开头的列中唯一值的计数。

你如何在VBA中做到这一点？

ColumnA ColumnB 
JohnRed 3 
JohnBlue 
JohnGreen 
JohnRed 
IanRed 

如果您正在寻找约翰。然后它的3.

Answer 1

您可以尝试读取Range的值，并与"John*"进行比较。稍后使用Dictionary来计算独特的Keys。

代码

Option Explicit 

Sub UniqueJohns() 

Dim JohnsArr As Variant 
Dim i As Long 
Dim Dict As Object 
Dim Result As Long 

Set Dict = CreateObject("Scripting.Dictionary") 

' read into array, to run faster 
JohnsArr = Application.Transpose(Range("A1:A5")) 

' loop through array elements 
For i = 1 To UBound(JohnsArr) 
    If JohnsArr(i) Like "John*" Then 
     ' check if already exists in Dictionary 
     If Not Dict.exists(JohnsArr(i)) Then 
      Dict.Add JohnsArr(i), JohnsArr(i) 
     End If 
    End If 
Next i 
Result = UBound(Dict.keys) ' <-- this is the result, unique keys in Dictionary 
MsgBox Result 

End Sub