VBA：将单元格区域复制到其他工作簿

Question

我目前正在处理一组集成的工作簿，需要在工作簿之间传输数据值。 为此，我需要一个VBA宏，该宏可以复制特定范围（工作表中的一行）并将其插入另一本书的概述列表的底部。

我怎样才能做到这一点？

我是VBA的新手，因此请务必提供具体说明。 注意：我使用的是MS Excel 2010。

先感谢您！

Answer 1

下面的例子中复制将复制单元的内容A1:A3从Worksheet名为Source在Workbook名为workbook1.xlsx到Worksheet命名Target在不同的Workbook ， workbook1.xlsx 。 如果两个Workbook未打开，或者它们不包含Sub调用的Worksheet ，则将引发错误。

Sub Example()

    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet

    Set wb1 = Workbooks("workbook1.xlsx")
    Set wb2 = Workbooks("workbook2.xlsx")
    Set ws1 = wb1.Sheets("Source")
    Set ws2 = wb2.Sheets("Target")

    ws2.Range("A1:A3") = ws1.Range("A1:A3").Value

End Sub