设两个文件都打开:
Sub admin()
Dim xW As Workbook, yW As Workbook
Dim xSH As Worksheet
Set xW = Workbooks("1.xlsx")
Set yW = Workbooks("2.xlsx")
For Each xSH In xW.Worksheets
Select Case xSH.Name
Case "A"
xSH.Cells.Copy yW.Worksheets("数据1").Range("A1")
Case "B"
xSH.Cells.Copy yW.Worksheets("数据2").Range("A1")
Case "C"
xSH.Cells.Copy yW.Worksheets("数据3").Range("A1")
Case "D"
xSH.Cells.Copy yW.Worksheets("数据4").Range("A1")
Case "E"
xSH.Cells.Copy yW.Worksheets("数据5").Range("A1")
Case "F"
xSH.Cells.Copy yW.Worksheets("数据6").Range("A1")
Case "G"
xSH.Cells.Copy yW.Worksheets("数据7").Range("A1")
Case "H"
xSH.Cells.Copy yW.Worksheets("数据8").Range("A1")
End Select
Next
End Sub本回答被提问者采纳