Question

excel VBA 复制sheet到另一表格的sheet 代码怎么写，详细如下。

我想把
c:\文档处理\1.xlsx
当中的8个sheet,A、B、C、D、E、F、G、H当中的内容全部
复制到
c:\文档处理\2.xlsx
当中的8个sheet,数据1、数据2、数据3、数据4、数据5、数据6、数据7、数据8当中。其中：
A复制到数据1当中，
B复制到数据2当中，
C复制到数据3当中，
D复制到数据4当中，
E复制到数据5当中，
F复制到数据6当中，
G复制到数据7当中，
H复制到数据8当中
请教，VBA的代码应该如何写。

Answer 1

Dim Book2 As Workbook
Dim tmpSt As Worksheet

Set Book2 = Workbooks("2")

For Each tmpSt In ActiveWorkbook.Sheets
tmpSt.Activate
tmpSt.Cells.Select
Application.CutCopyMode = False
Selection.Copy

Select Case tmpSt.Name
Case "A"
Book2.Sheets("数据1").Activate
Case "B"
Book2.Sheets("数据2").Activate
Case "C"
Book2.Sheets("数据3").Activate
Case "D"
Book2.Sheets("数据4").Activate
Case "E"
Book2.Sheets("数据5").Activate
Case "F"
Book2.Sheets("数据6").Activate
Case "G"
Book2.Sheets("数据7").Activate
Case "H"
Book2.Sheets("数据8").Activate
End Select

ActiveSheet.Paste

Next

前提是表1和2要打开，在表1运行。而且两个表的表名按你所述是已经建立的，如果表名不对应，将会运行错误。

Answer 2

这样的代码 你自己录制一段 宏 然后修改一下就可以了……
打开两个工作簿 在 2.xlsx 里 录制宏……
录制一个之后 你再增加就可以了……

Answer 3

设两个文件都打开：

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

Answer 4

workbooks.open ("C:\文档处理\1.xlsx")
workbooks.open ("C:\文档处理\2.xlsx")
workbooks("1.xlsx").worksheets("A").cells.copy
workbooks("2.xlsx").worksheets("数据1").cells.pastespecial
workbooks("1.xlsx").worksheets("B").cells.copy
workbooks("2.xlsx").worksheets("数据2").cells.pastespecial
。。。。