求助复制黏贴

指尖的阳光、

求助：目前“复制”工作薄中只能从“汇总”整体复制黏贴，现在需要从“汇总”中复制A3至N26的区域，至“复制”工作薄中的指定位置。谢谢。

yanglinzi

试试这样中不中
Sub 同步汇总台账()
    Dim MyPath$, MyName$, sh As Worksheet, arr
    Set sh = ActiveWorkbook.Sheets("汇总台帐")
    MyPath = ThisWorkbook.Path & "\"
    MyName = Dir(MyPath & "汇总.xlsm")
    Application.ScreenUpdating = False
    sh.Cells.ClearContents
    If MyName <> "" Then
        r = Cells(Rows.Count, 1).End(xlUp).Row
        If MyName <> ThisWorkbook.Name Then
            With GetObject(MyPath & MyName)
            
           .Sheets(1).Range("a3:n" & r).Copy sh.[a1]

            End With
        End If
    End If
   End Sub

gwjkkkkk

Option Explicit
Sub test()
    Dim strFileName$, strPath$, Rng As Range
   
    strPath = ThisWorkbook.Path & "\"
    strFileName = Dir(strPath & "汇总.xlsm")
    If strFileName = "" Then Exit Sub
   
    Application.ScreenUpdating = False

    With GetObject(strPath & strFileName)
        With .Worksheets(1).[A1].CurrentRegion
            Set Rng = Intersect(.Offset(), .Offset(2))
            [A1].CurrentRegion.Offset(2).Clear
            Rng.Copy [A3]
        End With
        .Close False
    End With

    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

...........