[已解决]请教论坛老师，vba查找指定区域内，数值类型的个数

grf1973

1. Sub test()
   
2.    arr = Range("aa12").CurrentRegion
   
3.    Dim s(1 To 3, 1 To 1), w(9)
   
4.    For Each x In arr
   
5.       If Len(x) = 3 Then
   
6.         For j = 1 To 3
   
7.             w(Val(Mid(x, j, 1))) = 1
   
8.         Next
   
9.         k = Len(Join(w, ""))
   
10.         s(k, 1) = s(k, 1) + 1
    
11.         Erase w
    
12.     End If
    
13.   Next
    
14.   [b7].Resize(3, 1) = s
    
15. End Sub
    

复制代码

yslvictor

各位论坛老师辛苦了，字典法我没有学会，根本不理解，10楼老师的代码，我还能看懂，谢谢论坛前辈们。