VBA：将单元格区域复制到不同的工作簿

问题描述：

我目前正在开发一套集成的工作簿，我需要在工作簿之间传输数据值。为此，我需要一个可以复制特定范围（工作表中的一行）的VBA宏，并将其插入到另一本书中的概览列表底部。VBA：将单元格区域复制到不同的工作簿

我该怎么做？

我有点VBA新手，所以具体的说明表示赞赏。注意：我正在使用MS Excel 2010.

预先感谢您！

欢迎来到SO！你不介意与我们分享至少一部分你的努力 - 只是为了支持[你有什么尝试？]（http://whathaveyoutried.com/）为你的任务尝试使用宏记录器，然后稍微修改代码。这里有很多类似的问题） – 2013-02-11 12:20:56

答

以下示例副本将细胞A1:A3的内容来自名为WorksheetSource在名为Workbookworkbook1.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

VBA：将单元格区域复制到不同的工作簿

相关推荐