[已解决]多个xlsx文件批量计算移动平均

beachum

请高手写个能处理多个xlsx文件计算移动平均的宏,以每个文件的B列第一行开始，到这个文件的B列的
第五行为第一个计算周期，一直计算到B列最后一
行，计算结果在C列第五行开始显示。

(B1+B2+B3+B4+B5)/5=C5
(B2+B3+B4+B5+B6)/5=C6
(B3+B4+B5+B6+B7)/5=C7
……一直计算到B列最后一行。

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-6-20 17:46

Sub demo()
   Application.ScreenUpdating = False
   Set fso = CreateObject("Scripting.FileSystemObject")
   For Each file In fso.GetFolder(ThisWorkbook.Path).Files
      If Not file Like "*.xlsx" Then GoTo 1
      Set wb = Workbooks.Open(file)
      For i = 5 To [b1].End(4).Row
         Cells(i, 3) = "=average(r[-4]c[-1]:rc[-1])"
      Next
      wb.Close 1
1:
   Next
   MsgBox "ok"
End Sub

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

Sub demo()
   Application.ScreenUpdating = False
   Set fso = CreateObject("Scripting.FileSystemObject")
   For Each file In fso.GetFolder(ThisWorkbook.Path).Files
      If Not file Like "*.xlsx" Then GoTo 1
      Set wb = Workbooks.Open(file)
      For i = 5 To [b1].End(4).Row
         Cells(i, 3) = "=average(r[-4]c[-1]:rc[-1])"
      Next
      wb.Close 1
1:
   Next
   MsgBox "ok"
End Sub

祝順心，南無阿彌陀佛！

beachum

cutecpu 发表于 2021-6-20 17:46
Sub demo()
   Application.ScreenUpdating = False
   Set fso = CreateObject("Scripting.FileSystemOb ...

非常感谢您的帮助！