Question

我要从工作簿A，工作表2的单元格区域（A2：BG2）复制到活动工作簿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

Answer 1

希望这对您有帮助

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

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

1 个答案: