统计个数与求和

天地一相

感谢帮助！详见截图和附件。原本由公式完成的，但这些计算不常用，工作时会浪费时间，想着弄成VBA，用的时候点击一下应该能行。

PS:看了很多帮助，至今未有完全合适的。再说一下关键点：汇总区是按A,B,C,D,E,顺序，对应的表也是按顺序排列的，即若sheet2起始，则后面就是sheet3，4，5，6.需要每一张表定义统计范围，全部不同。我想象，得先定义5张表的统计范围，才能对这5个定义对象循环统计。然后最后就是定义汇总的地址：哪张表的起始单元格

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

复制代码

iu950

附件供参考。。。

剑指E

tanglf188

参与一下，Shee2表可以统计任意地方的数字，你的附件里就是文字不是按钮，所以直接点击A1或A2单元格就能执行代码。

天地一相

iu950 发表于 2023-1-4 16:06
附件供参考。。。

谢谢，抱歉，我测试后修改了主贴，请再看看。

天地一相

tanglf188 发表于 2023-1-4 16:45
参与一下，Shee2表可以统计任意地方的数字，你的附件里就是文字不是按钮，所以直接点击A1或A2单元格就能执 ...

谢谢，抱歉，我测试后修改了主贴，请再看看。

天地一相

剑指E 发表于 2023-1-4 16:23

谢谢你。我测试后，感觉修改成对多表统计有难度，琢磨着修改了求助，请再看看主贴，

tanglf188

天地一相 发表于 2023-1-4 17:02
谢谢，抱歉，我测试后修改了主贴，请再看看。

自己修改吧，下班了，不弄了，下次提问想好了再问。

天地一相

tanglf188 发表于 2023-1-4 17:16
自己修改吧，下班了，不弄了，下次提问想好了再问。

谢谢你了，我修改不了，我再等等其他人吧。

剑指E

天地一相 发表于 2023-1-4 17:05
谢谢你。我测试后，感觉修改成对多表统计有难度，琢磨着修改了求助，请再看看主贴，