统计个数与求和

KAI19

向大家学习

willem168

估计你就是要这种自动多表求和统计
注：表循环的规则是 帮你按'表*'判断的，基础信息表要统计的就名字前加个 ‘表’ ，你的 SHEET("E"）是不会被统计的
几个主要变量SUB 都是分开做的 便于你理解




你的统计表 基础数据设计的是帮自己找麻烦 可能你只是拿来练习
其实最简单的就是基础数据加一列求和项名称（不用表1 表2 直接可以做成一维数据表） 然后合并所有表 汇总表用数据透视表做统计

天地一相

willem168 发表于 2023-1-6 11:03
估计你就是要这种自动多表求和统计
注：表循环的规则是 帮你按'表*'判断的，基础信息表要统计的就名字前 ...

谢谢。我是一直使用函数进行这几项统计的。只是想到这统计也不是常使用，但我的表格需要经常执行大量循环计算，那这统计的公式就会反复执行，猜想若做成VBA，使用时执行，会节约时间。真没想到我这想法如此麻烦折腾人，很多帮助我根本看不懂，也就无法调整到正常使用的程度。我还想代码里能有简单易行的设置块，好让我调整参数，不想全是天书对我。暂时泄气了，还是先用着公式吧。其实我察觉到难度后，想着是做5个单个vba,然后循环宏。每一个VBA，就统计一类，如A0,A1,A2,A3,就可以使用with sheet3,这样我就能看明白和调整。但又想输出的结果还得费功夫或解释，还需要把同一数字的放在一块，要不看的费劲。

fzxba

1. Sub test1()
   
2.   Dim ar(1 To 256), Ran() As Range
   
3.   Dim i As Integer, j As Integer, k As Integer
   
4.   
   
5.   ReDim Ran(2 To Worksheets.Count) ' 或2 to 6， 指第2到第6个工作表
   
6.   For j = LBound(Ran) To UBound(Ran)
   
7.     Set Ran(j) = Worksheets(j).Range("A1:K2")
   
8.   Next
   
9.   For i = 0 To 3  '统计 0 到 3
   
10.     For j = LBound(Ran) To UBound(Ran) '统计各表相关区域
    
11.       k = k + 1
    
12.       ar(k) = WorksheetFunction.CountIf(Ran(j), i)
    
13.     Next
    
14.   Next
    
15.   For j = LBound(Ran) To UBound(Ran) '最后求和
    
16.     k = k + 1
    
17.     ar(k) = WorksheetFunction.Sum(Ran(j))
    
18.     Set Ran(j) = Nothing  '释放
    
19.   Next
    
20.   With Worksheets(1).Range("C4")
    
21.     .Resize(, 256).ClearContents
    
22.     .Resize(, k) = ar
    
23.   End With
    
24. End Sub

复制代码

zlzz1971

WPS下测试可用

ω逆鳞々

......................

天地一相

fzxba 发表于 2023-1-6 12:22

谢谢，你这个挺适合我，我能看懂了。若调整也方便。就一个问题。每一张被统计的表的范围是不同的。需要逐个定义。如sheet3，设定为Y1:AA1。其它类似，共5张需要统计的表。