怎样用VBA代码求三个工作表中每列的总和及平均值

小草看日出

如果求三个工作表中A列的总和及B列的平均值，把结果显示在每列的最后，请问代码应怎么写？谢谢。

taller

小草看日出

taller 发表于 2023-2-9 00:59

非常感谢深夜加班帮助我！把代码写进EXCEL里，计算后sheet1里的和及平均值正确，sheet2和sheet3里的不正确。不知问题出在了哪里？

grf1973

Range前面少了一个".“

fzxba

1. Sub test0()
   
2.   Dim wks As Worksheet, j As Integer
   
3.   For Each wks In Worksheets
   
4.     With wks
   
5.       For j = 0 To 1
   
6.         .Cells(Rows.Count, j + 1).End(xlUp).Offset(1) = "=subtotal(" & Array(9, 1)(j) & ",r1c:r[-1]c)"
   
7.       Next
   
8.     End With
   
9.   Next
   
10. End Sub

复制代码

小草看日出

grf1973 发表于 2023-2-9 09:23
Range前面少了一个".“

加上这个“.”后，都正确了，真是差之毫厘谬之千里呀。感谢帮我找出问题所在。

小草看日出

grf1973 发表于 2023-2-9 09:23
Range前面少了一个".“

试着仿照学习不调用函数，而是用for each语句求和，但是运行到想让结果呈现在A列最后一个单元格时，提示类型不匹配，不知为何？另外，如果用类似的方式求B列的平均值，该怎么写？谢谢指教。


Sub sum()
Dim i%, r%, rng, rngs As Range, d As Double
For i = 1 To 3
With Sheets(i)
r = .Range("a65536").End(xlUp).Row
Set rngs = .Range("A1:A" & r)
For Each rng In rngs
If rng > 0 Then d = d + rng
Next
.Range("A" & r + 1).Value = d
End With
Next
End Sub
运行到.Range("A" & r + 1).Value = d时提示类型不匹配。

grf1973

小草看日出 发表于 2023-2-9 10:43
试着仿照学习不调用函数，而是用for each语句求和，但是运行到想让结果呈现在A列最后一个单元格时，提示 ...

r-1即可。或者先把最后汇总行删除。

小草看日出

grf1973 发表于 2023-2-9 11:25
r-1即可。或者先把最后汇总行删除。

Sub sum()
Dim i%, r%, rng, rngs As Range, d As Double
For i = 1 To 3
With Sheets(i)
r = .Range("a65536").End(xlUp).Row - 1
Set rngs = .Range("A1:A" & r)
For Each rng In rngs
If rng > 0 Then d = d + rng
Next
.Range("A" & r + 1).Value = "总和" & d
End With
Next
End Sub
问题：1、改后，这段代码能正常运行，但只有sheet1里的求和结果正确，sheet2和sheet3里的求和结果不正确，不知为何？该怎样修改？
         2、如果求B列的平均值，不用调用函数的方式，代码怎样写？
         3、如果求每列的个数，不用调用函数的方式，代码怎样写？
           感谢指导！

小草看日出

fzxba 发表于 2023-2-9 09:49

代码运行结果正确。感谢帮助。有些高深，有个地方看不懂。.Cells(Rows.Count, j + 1).End(xlUp).Offset(1) = "=subtotal(" & Array(9, 1)(j) & ",r1c:r[-1]c)"这句，我知道.Cells(Rows.Count, j + 1).End(xlUp).Offset(1)这个是每一列最后的呈现结果的单元格，但"=subtotal(" & Array(9, 1)(j) & ",r1c:r[-1]c)"看不懂，看不懂为何这半句既能求A列的和又能求B列的平均值？有时间了解释一下，多谢。