作业帮excel每20×20求一个平均值
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/10 04:34:54
excel每20×20求一个平均值
我现在有1000×1000的数据 需要变成50×50的 也就是每20×20求一个平均值 怎么快速完成呢?
我现在有1000×1000的数据 需要变成50×50的 也就是每20×20求一个平均值 怎么快速完成呢?
会用VB么?
再问： 需要写代码么 如果能帮忙写一下就很感激了
再答： Sub assa() Dim a, b As Integer For a = 1 To 50 For b = 1 To 50 Cells(a, b + 1001) = Application.WorksheetFunction.Average(Range(Cells(a * 20 - 19, b * 20 - 1), Cells(a * 20, b * 20))) Next b Next a End Sub
再问： 需要写代码么 如果能帮忙写一下就很感激了
再答： Sub assa() Dim a, b As Integer For a = 1 To 50 For b = 1 To 50 Cells(a, b + 1001) = Application.WorksheetFunction.Average(Range(Cells(a * 20 - 19, b * 20 - 1), Cells(a * 20, b * 20))) Next b Next a End Sub