Question

我有以下代码，我需要工作，将一个范围从一个工作簿复制到另一个工作簿，但需要帮助，以便当我打开一个不同的工作簿时，我可以将相同的范围复制到合并文件中使用的最后一行

Sub ValuePaste()

    Workbooks("04.17.17 SHELBY.xlsx").Worksheets("Summary $500-$10K").Range("B8:F21").Copy  
    Workbooks("Consolidated_template_new1_WA.xlsx").Worksheets("test").Range("C4").PasteSpecial Paste:=xlPasteValues
End Sub

Answer 1

Sub ValuePaste()
Dim loLastRow As Long

Workbooks("04.17.17 SHELBY.xlsx").Worksheets("Summary $500-$10K").Range("B8:F21").Copy

With Workbooks("Consolidated_template_new1_WA.xlsx").Worksheets("test")
   loLastRow = .Cells(Rows.Count, 3).End(xlUp).Row + 1
   .Range("C" & loLastRow).PasteSpecial Paste:=xlPasteValues
End With

End Sub

变量loLastRow将包含上面“with”命令中指定的工作表的最后一行。之后，Range对象使用此信息在最后一次使用之后构建第一个空单元格。

将数据复制到另一个工作簿并添加到使用的最后一行

1 个答案: