各位高手，如何实现以下统计单元组相同字符个数

ruiqian

xunanming 发表于 2023-4-11 14:51
最好上传个附件再分析..........

请老师赐教，谢谢！

不知道为什么

ruiqian 发表于 2023-4-21 23:06
请老师赐教，谢谢！

供参考：

1. Sub test()
   
2.     Dim dic, arr, brr
   
3.     Dim i%, j%, k, t%
   
4.     Application.ScreenUpdating = False
   
5.     With Sheets("统计1").[b2]
   
6.         arr = .Resize(.End(xlDown).Row - 1, 1)
   
7.         .Offset(0, 1).Resize(UBound(arr), 10).ClearContents
   
8.         ReDim brr(1 To UBound(arr), 1 To 10)
   
9.         For i = 1 To UBound(arr)
   
10.             Set dic = CreateObject("scripting.dictionary")
    
11.             For Each k In Split(arr(i, 1), " ")
    
12.                 t = Val(Right(k, 1))
    
13.                 If Not dic.exists(t) Then
    
14.                     dic(t) = 1
    
15.                 Else
    
16.                     dic(t) = dic(t) + 1
    
17.                 End If
    
18.             Next
    
19.             For j = 1 To 10
    
20.                 If dic.exists(j - 1) Then
    
21.                     brr(i, j) = dic(j - 1)
    
22.                 Else
    
23.                     brr(i, j) = ""
    
24.                 End If
    
25.             Next j
    
26.             Set dic = Nothing
    
27.         Next i
    
28.         .Offset(0, 1).Resize(UBound(arr), 10) = brr
    
29.     End With
    
30.     Application.ScreenUpdating = True
    
31. End Sub

复制代码

不知道为什么

ruiqian 发表于 2023-4-21 23:06
请老师赐教，谢谢！

附件。。。。。。。。。。。。。。

ruiqian

xunanming 发表于 2023-4-11 14:51
最好上传个附件再分析..........

你好，换成全数字后，计算结果有误。