在数组列表VBA查找和计数不同的字母

Question

我需要能够计数的独特的字母阵列的数量，如这样的：

[A01, B01, C01, A02, C02] 

对于这个例子的结果应该是3，因此我需要仅在发现新信件的情况下包括该值。

这是在Word 2007用户窗体中完成的。 任何建议或例子完成这样的任务？

Answer 1

这适用于我。运行Test()宏以获取演示数据的结果。

Function UniqueLetterCount(ByRef Values() As String) As Integer 

    UniqueLetterCount = 0 
    Dim LettersSeen As String 
    Dim i As Integer 
    Dim Letter As String 
    LettersSeen = "" 

    For i = LBound(Values) To UBound(Values) 
     Letter = Left(Values(i), 1) 
     If InStr(LettersSeen, Letter) = 0 Then 'if Letter was not found in LettersSeen 
      UniqueLetterCount = UniqueLetterCount + 1 
      LettersSeen = LettersSeen & Letter 
     End If 
    Next 

End Function 


Sub Test() 

    Dim DemoArray(9) As String 
    DemoArray(0) = "A01" 
    DemoArray(1) = "A02" 
    DemoArray(2) = "B01" 
    DemoArray(3) = "C01" 
    DemoArray(4) = "A03" 
    DemoArray(5) = "D01" 
    DemoArray(6) = "D02" 
    DemoArray(7) = "C02" 
    DemoArray(8) = "B02" 
    DemoArray(9) = "C03" 
    MsgBox "Unique letter count is " & UniqueLetterCount(DemoArray) 

End Sub