将单元格范围从工作簿工作表复制到另一个工作簿工作表

我有3个工作簿，分别是：A，B和C.

我正在编写A内的VBAmacros，以便将特定工作表的单元格区域内容从B复制到C

Dim wb_TC_PBS As Excel.Workbook Dim wb_SPO_PBS As Excel.Workbook Set wb_TC_PBS = Workbooks.Open("C:\temp\migration\B.xlsm") Application.CutCopyMode = False FinalRow = Sheets("TC_PBS").Cells(Rows.Count, 1).End(xlUp).Row Range("A5:EO" & FinalRow).Copy 

我想了解我的方法是否正确以及如何继续在工作簿C上粘贴内容

Answer 1

这可能有帮助

 Dim a As Workbook,b As Workbook, c As Workbook, FinalRow As Long Set a = ThisWorkbook Set b = Workbooks.Open("C:\temp\migration\B.xlsm") Set c = Workbooks.Open("C:\temp\migration\C.xlsm") b.Activate FinalRow = b.Sheets("TC_PBS").Cells(Rows.Count, 1).End(xlUp).Row b.Sheets("TC_PBS").Range("A5:EO" & FinalRow).Copy c.Activate c.Worksheets(1).Range("A1").Select c.Sheet1.Paste Application.CutCopyMode = False