excel里面宏编程的问题

来源：百度知道 编辑：UC知道 时间：2024/05/29 15:10:41
A列有5000组数值，我想每10组取个平均值，然后连续的放在B列。
我初学，还不知道如何实现这部分。
谢谢啦

Sub 分组求平均()
'

For i = 0 To 499
Sum = 0
For j = 1 To 10
Sum = Sum + Cells(i * 10 + j, 1) 'A列每10个求和
Next
Cells(i + 1, 2) = Sum / 10 'B列第i+1行单元格

Next

End Sub

Sub 分组求平均()
Range("B1").Formula = "=AVERAGE(A1:A10)"
Range("B1:B10").Copy Range("B11:B5000")
Range("B1:B5000").Copy
Range("B1:B5000").PasteSpecial xlPasteValues
End Sub

了