将Excel1中的Sheets复制到Excel2中。
Sub 合并()
Dim wb1, wb2 As Workbook
Set wb1 = Workbooks.Open("Excel1.xlsx")
Set wb2 = Workbooks.Open("Excel2.xlsx")
count1 = wb1.Sheets.Count
count2 = wb2.Sheets.Count
For i = 1 To count1
wb1.Sheets(i).Copy After:=wb2.Sheets(count2 + i - 1)
Next
End Sub