能否一个多样统计汇一表？

青青的河边草

在表AF8--AL22中任意输入15个以上的自然数，点击按钮，能否按部就班的在相应表格中填入数字并在上面统计出结果？

liulang0808

楼主使用字典处理吧
http://club.excelhome.net/thread-1385473-1-1.html
字典的资料

青青的河边草

liulang0808 发表于 2019-9-29 18:33
楼主使用字典处理吧
http://club.excelhome.net/thread-1385473-1-1.html
字典的资料

我还没有达到这个水平，麻烦您给编写，谢谢。

liulang0808

1. Private Sub CommandButton1_Click()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = [af8].CurrentRegion
   
4.     For Each i In arr
   
5.         If Len(i) > 0 Then d(i) = d(i) + 1
   
6.     Next i
   
7.     Application.ScreenUpdating = False
   
8.     r = 8
   
9.     For j = 1 To 16
   
10.         c = 41
    
11.         For i = d.Count - 1 To 0 Step -1
    
12.             If d.items()(i) = j Then
    
13.                 Cells(r, c) = d.keys()(i)
    
14.                 c = c + 1
    
15.                 d.Remove d.keys()(i)
    
16.             End If
    
17.         Next i
    
18.         r = r + 2
    
19.         
    
20.     Next j
    
21.     If d.Count > 0 Then Cells(r, c).Resize(1, d.Count) = d.keys
    
22.     Application.ScreenUpdating = True
    
23. End Sub
    

复制代码

liulang0808

附件供参考，其他部分楼主可以自己补充

青青的河边草

太强大了，谢谢。