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

grf1973

循环中d没有清零，把Sheet1的结果带到后面表格去了。

小草看日出

grf1973 发表于 2023-2-10 10:57
循环中d没有清零，把Sheet1的结果带到后面表格去了。

加上d=0后，sheet2和3计算结果也正确了，感谢指导。
如果计算B列的的平均值，不用调用函数的方式，代码该怎样写？

grf1973

。。。。。。。。。

grf1973

再来个直接写公式的供参考。

grf1973

再来个数组的。

grf1973

刚才附件没贴上？

小草看日出

grf1973 发表于 2023-2-10 11:21
。。。。。。。。。

代码运行结果正确。真的是高，学习了。多谢指导。

小草看日出

grf1973 发表于 2023-2-10 11:27
再来个直接写公式的供参考。

多谢，学习了。

小草看日出

grf1973 发表于 2023-2-10 11:36
刚才附件没贴上？

感谢不吝赐教。

小草看日出

grf1973 发表于 2023-2-10 11:36
刚才附件没贴上？

我想用《汇总计算》文件汇总各校各级各科期考总人数、平均分、及格人数、及格率、优秀人数、优秀率，能汇总。可是汇总后套用求和及求平均值的调用函数的方法对总人数、及格人数、及格率求和，对平均分、及格率和优秀率求平均值，代码运行后不出结果，看着也没毛病，不知原因出在何处，怎么修改，请指教，谢谢。


For h = 1 To 16
    With Sheets(h)
n = .Range("a65536").End(xlUp).Row - 2
.Range("C" & n + 1).Value = Application.WorksheetFunction.Sum(.Range("C3:C" & n)) '求总人数
.Range("D" & n + 1).Value = Application.WorksheetFunction.Average(.Range("D3:D" & n)) '求平均值'
.Range("E" & n + 1).Value = Application.WorksheetFunction.Sum(.Range("E3:E" & n)) '求总优秀人数
.Range("F" & n + 1).Value = Application.WorksheetFunction.Average(.Range("F3:F" & n)) '求优秀率平均值
.Range("G" & n + 1).Value = Application.WorksheetFunction.Sum(.Range("G3:G" & n)) '求总及格人数
.Range("H" & n + 1).Value = Application.WorksheetFunction.Average(.Range("H3:H" & n)) '求及格率平均值
End With