Excel 将一个范围从工作簿工作表复制到另一个工作簿

我想将单元格范围（A2:BG2）从工作簿A第2页复制到活动工作簿B第3页范围（A1:BG1）

这就是我想到的

Sub Macro6()
'
' Macro6 Macro
'

'
    ActiveCell.Rows("1:1").EntireRow.Select
    Windows("Bollore - kopregels importeren Bollore invoice soorten.xlsx").Activate
    ActiveCell.Offset(-11, 0).Rows("1:1").EntireRow.Select
    ActiveCell.Offset(-11, -4).Range("A1").Activate
    Selection.Copy
    Windows("Personal.xlsb").Activate
    Selection.Insert Shift:=xlDown
    ActiveCell.Offset(5, 12).Range("A1").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4

---

希望这对你有帮助

Sheets("Sheet2").Range("A2:BG2").Copy Destination:=Sheets("Sheet3").Range("A1:BG1")

或 你可以用

    'Copy the data
    Sheets("Sheet2").Range("A2:BG2").Copy
    'Activate the destination worksheet
    Sheets("Sheet3").Activate
    'Select the target range
    Range("A1:BG1").Select
    'Paste in the target destination
    ActiveSheet.Paste       
    Application.CutCopyMode = False

---

欢迎来到堆栈溢出！我们在这里帮助您解决一些特定的编程问题，一旦您做出了诚实的努力并陷入困境。我会从宏录制器开始，或者在这里研究其他问题，因此，尝试修改代码，如果您遇到了问题，请返回您的特定问题。只要我保持在同一工作簿和工作表上，它就会工作。但我希望它是通用的，这样我就可以将范围粘贴到打开的活动工作表中。我知道这与“Personal.xlbs”有关，但这正是我感到惊讶的地方。实际上，你可以使用该代码发布你的帖子，而不是将其发布在评论中。可能与欢迎使用堆栈溢出（Stack Overflow）重复！请阅读并阅读，特别是如何提问。你在这里的最佳选择是做你的研究，搜索相关的话题，然后尝试一下。在做了更多的研究和搜索之后，把你的尝试写下来，明确地说出你的困境，这可以帮助你得到更好的答案。