想用VBA编码实现countifs条件计数

姐迷恋歌

数据量比较大，如果用Countifs函数会比较卡，想用宏编码实现多条件计数功能，这样应该会快一些，数据源是图一这样的，想实现图二这种方式统计，请各位大佬们帮看一下，实际表格比这个大，数据源sheet里有上万行

lizhipei78

这个是基础字典的用法，计数和求和，建议好好学习一下

cjc209

数据透视表来完成 简单

姐迷恋歌

cjc209 发表于 2024-2-5 15:51
数据透视表来完成 简单

可以是可以，但是我需求行标题按ABCDE的顺序来统计，如果是用透视表，假如数据源里没有A，那透视表统计的行标题也就没有A了

姐迷恋歌

lizhipei78 发表于 2024-2-5 15:44
这个是基础字典的用法，计数和求和，建议好好学习一下

具体怎么弄呢，求大佬指导

fzxba

1. Sub test0()
   
2.   Dim ar, br, Dict As Object
   
3.   Dim i As Long, posRow As Long, posCol As Long
   
4.   Set Dict = CreateObject("Scripting.Dictionary")
   
5.   With Sheet2.Range("A1").CurrentRegion
   
6.     .Offset(1, 1).ClearContents
   
7.     ar = .Value
   
8.   End With
   
9.   For i = 2 To UBound(ar)
   
10.     Dict.Add ar(i, 1), i
    
11.   Next
    
12.   For i = 2 To UBound(ar, 2)
    
13.     Dict.Add ar(1, i), i
    
14.   Next
    
15.   br = Sheet1.Range("A1").CurrentRegion.Value
    
16.   For i = 2 To UBound(br)
    
17.     If Dict.Exists(br(i, 2)) Then
    
18.       posRow = Dict(br(i, 2))
    
19.       If Dict.Exists(br(i, 1)) Then
    
20.         posCol = Dict(br(i, 1))
    
21.         ar(posRow, posCol) = ar(posRow, posCol) + 1
    
22.       End If
    
23.     End If
    
24.   Next
    
25.   Sheet2.Range("A1").Resize(UBound(ar), UBound(ar, 2)) = ar
    
26.   Set Dict = Nothing
    
27.   Beep
    
28. End Sub

复制代码

fzxba

用VBA实现Countifs条件计数.zip (20.56 KB, 下载次数: 21)

2024-2-5 16:12 上传

点击文件名下载附件

姐迷恋歌

fzxba 发表于 2024-2-5 16:12

谢谢

yynrzwh

用VBA实现Countifs条件计数.rar (20.34 KB, 下载次数: 19)

2024-2-5 17:02 上传

点击文件名下载附件

姐迷恋歌

yynrzwh 发表于 2024-2-5 17:02

多谢大佬帮忙