求一个自动求平均值的EXCEL宏

答案:3 悬赏:10 手机版

解决时间 2021-11-24 19:23

提问者网友：练爱
2021-11-24 03:30

求一个自动求平均值的EXCEL宏

最佳答案

五星知识达人网友：逐風
2021-11-24 03:55

亲，公式可以轻松解决呀，为何一定要用宏？
如图，B1粘贴这个公式，下拉，就自动求出来A1:A5、A2:A6、……的平均值
=AVERAGE(A1:A5)

追答数据量大把我吓着了，用了数组提速，代码如下。
打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。

Sub pjz()
Dim i, j, r As Long: Dim AArr, BArr
r = Cells(Rows.Count, "A").End(xlUp).Row: Columns("B").ClearContents
AArr = Range("A1:A" & r): BArr = Range("B1:B" & r - 4)
For i = 1 To r - 4
BArr(i, 1) = (AArr(i, 1) + AArr(i + 1, 1) + AArr(i + 2, 1) + AArr(i + 3, 1) + AArr(i + 4, 1)) / 5
Next
Range("B1:B" & r - 4) = BArr
End Sub

全部回答

1楼网友：污到你湿
2021-11-24 06:02

直接写工式(B2)：＝average(a1:a5) 下拉

2楼网友：鱼芗
2021-11-24 05:30

b5=average(A1:a5)
下拉，应该可以实现啊。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息