Public Sub ex()
Dim xlPath As Variant, Ro As Integer
Dim xlFile, arr
xlFile = Array("B.xlsx", "C.xlsx")
arr = Sheets("工作表1").Range("A1:E" & Sheets("工作表1").Cells(65535, 1).End(xlUp).Row)
For i = 0 To UBound(xlFile)
Workbooks.Open (xlPath & xlFile(i))
With Workbooks(xlFile(i)).Worksheets("工作表1")
Ro = .Cells(65535, 1).End(xlUp).Row
.Cells(Ro, 1).Resize(UBound(arr), UBound(arr, 2)) = arr
End With
Workbooks(xlFile(i)).Close True
Next
End Sub
Dim xlPath As Variant, Ro As Integer
Dim xlFile, arr
xlFile = Array("B.xlsx", "C.xlsx")
arr = Sheets("工作表1").Range("A1:E" & Sheets("工作表1").Cells(65535, 1).End(xlUp).Row)
For i = 0 To UBound(xlFile)
Workbooks.Open (xlPath & xlFile(i))
With Workbooks(xlFile(i)).Worksheets("工作表1")
Ro = .Cells(65535, 1).End(xlUp).Row
.Cells(Ro, 1).Resize(UBound(arr), UBound(arr, 2)) = arr
End With
Workbooks(xlFile(i)).Close True
Next
End Sub
