这是提取数据的一段代码，我想提取120列，现在只能提取56列，要怎么修改？

z95888

Sub Macro1()
    Dim MyPath$, MyName$, sh As Worksheet, sht As Worksheet
    Application.ScreenUpdating = False
    Set sh = ActiveSheet
    MyPath = ThisWorkbook.Path & "\"
    MyName = Dir(MyPath & "*.xls")
    [a1].CurrentRegion.Offset(2).Clear
    Do While MyName <> ""
        If MyName <> ThisWorkbook.Name Then
            With GetObject(MyPath & MyName)
                For Each sht In .Sheets
                    If sht.[a1].CurrentRegion.Rows.Count > 2 Then
                        lr = sh.[a1].CurrentRegion.Rows.Count + 1
                        r = sht.[a1].CurrentRegion.Rows.Count - 2
                        sh.Cells(lr, 1).Resize(r) = MyName
                        sh.Cells(lr, 2).Resize(r) = sht.Name
                        sht.[a1].CurrentRegion.Offset(2).Copy sh.Cells(lr, 3)
                    End If
                Next
                .Close False
            End With
        End If
        MyName = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "ok"
End Sub

xiangbaoan

sht.[a1].CurrentRegion.RESIZE(,120).Offset(2).Copy sh.Cells(lr, 3)'这样试试

z95888

谢谢你，我试试。

z95888

每张表从第6行提取要怎么修改？谢谢

z95888

再麻烦xiangbaoan帮助，谢谢。

w609053988

z95888 发表于 2019-6-4 10:57
再麻烦xiangbaoan帮助，谢谢。

最好能上传附件说明，论坛有很多资料关于工作薄提取合并的，多看看就明白了
要提取的数据区域如果不连续就不要用CurrentRegion,如果提取的区域固定就直接用比如range("a6:d166")
如果需要提取的区域是动态的，就用end()方法来获取