对同一个文件下的多个EXCEL文件进行相同的操作

Sub 批量()
Dim myFiles
Dim i As Long, j As Long

myFiles = Dir("C:\Users\Administrator\Desktop\1\*.xlsx")
'文件路径
On Error Resume Next
Application.ScreenUpdating = True
Application.DisplayAlerts = False

Do While myFiles <> ""
i = i + 1
Workbooks.Open Filename:="C:\Users\Administrator\Desktop\1\" & myFiles
'以下 可以在多个文件执行各种统一命令

Range("B14").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(R[2]C:R[10001]C)"
Range("B14").Select
Selection.AutoFill Destination:=Range("B14:C14"), Type:=xlFillDefault
Range("B14:C14").Select
Range("D14").Select
ActiveCell.FormulaR1C1 = "=(RC[-2]-RC[-1])/(RC[-2]+RC[-1])"
Range("D15").Select

ActiveWindow.Save
ActiveWindow.Close
myFiles = Dir

Loop
End Sub

这个可以做vba解决

本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。