| 最近同学做实验数据分析，让我帮着写个Excel的宏，以前没写过，就看了看文档完成了一个很小的功能
看到网上这方面的东西确实太少了，于是拿出来跟大家分享下，很简单
主要实现一个，把表里C列的数据，每n个求平均，完了写到D列
Sub abc()
Dim i%, j%, n%, m%
i = 2
m = 0
n = 20 '步长，每n个数计算平均，现在是每二十个数计算，可以任意修改
j = 261 '数据总数，可以根据需要修改
For i = 2 To j Step n
Dim sum As Double
sum = 0
For m = 0 To (n - 1) Step 1
sum = sum + Range("C" & (m + i))
Next m
Range("D" & (i), "D" & (i + n - 1)) = sum / n
Next i |
