求助代码 统计

3190496160

统计.rar (735.49 KB, 下载次数: 8)

2024-8-11 09:11 上传

点击文件名下载附件

3190496160

1吧吧 发表于 2024-8-10 21:35
测试结果出错
看5楼附件

2楼代码的整体逻辑并没错，关键是，transpose函数的最大容量只是65536行，超过的行数，肯定就是以错误值符号形式显示了

kyxfyzg

需要选择对应的列

1吧吧

1吧吧

感谢老师们

ykcbf1100

参与一下。。。

ykcbf1100

字典+数组

1. Sub ykcbf()  '//2024.8.11
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     arr = Sheets("Sheet1").[b1].CurrentRegion
   
4.     For Each k In arr
   
5.         d(k) = d(k) + 1
   
6.     Next
   
7.     ReDim brr(1 To d.Count, 1 To 2)
   
8.     For Each k In d.keys
   
9.         If k <> Empty Then
   
10.             m = m + 1
    
11.             brr(m, 1) = k
    
12.             brr(m, 2) = d(k)
    
13.         End If
    
14.     Next
    
15.     With Sheets("Sheet2")
    
16.         .[b:c] = ""
    
17.         .[b1].Resize(m, 2) = brr
    
18.         .[b1].Resize(m, 2).Sort .[c1], 2
    
19.     End With
    
20.     MsgBox "OK！"
    
21. End Sub
    

复制代码

lsc900707

参考测试附件：