我有一个下面提到的字符串,我需要在 2 个单独的列中返回结果
第 1 列:计算以分号分隔的所有位置。对于下面的示例,共有 15 个名称用分号连接
第 2 列:在此之后,我需要计算有多少名称以 A、B 和 C 开头,有多少不以 A、B 和 C 开头。
A1604A;A3703E;A3703H;C2203H;F1001B;F1001C;F1001D;F1001E;F1001F;F1001G;F1001H;F1001J;F1001K;F1001L;F1001M
我有一个下面提到的字符串,我需要在 2 个单独的列中返回结果
第 1 列:计算以分号分隔的所有位置。对于下面的示例,共有 15 个名称用分号连接
第 2 列:在此之后,我需要计算有多少名称以 A、B 和 C 开头,有多少不以 A、B 和 C 开头。
A1604A;A3703E;A3703H;C2203H;F1001B;F1001C;F1001D;F1001E;F1001F;F1001G;F1001H;F1001J;F1001K;F1001L;F1001M
迭代拆分数组,增加 A、B、C、Other 的计数器数组;
Dim str As String: str = "A123;A456;B111;C222;C333;ZXX;Y66"
Dim items() As String
Dim i As Long
Dim pfx(3) As Long
Dim key As Long
items = Split(str, ";")
For i = 0 To UBound(items)
Select Case Left(items(i), 1)
Case "A", "B", "C"
key = Asc(Left(items(i), 1)) - 65 '//convert to 0,1,2 for counter index
Case Else
key = 3
End Select
pfx(key) = pfx(key) + 1
Next
Range("A1").Value = "total: " & UBound(items) + 1
Range("B1").Value = "A total: " & pfx(0)
Range("C1").Value = "B total: " & pfx(1)
Range("D1").Value = "C total: " & pfx(2)
Range("E1").Value = "Other total: " & pfx(3)