请问利用VBA合并工作簿时，如何选定范围

ezail_1984

Sub 合并当前目录下所有工作簿的全部工作表()
    Dim MyPath, MyName, AWbName
    Dim Wb As Workbook, WbN As String, G As Long, Num As Long
    Application.ScreenUpdating = False
    MyPath = ActiveWorkbook.Path
    MyName = Dir(MyPath & "\" & "*.xls")
    AWbName = ActiveWorkbook.Name
    Num = 0
    Do While MyName <> ""
        If MyName <> AWbName Then
            Set Wb = Workbooks.Open(MyPath & "\" & MyName)
            Num = Num + 1
            With Workbooks(1).ActiveSheet
                If Num = 1 Then
                    Wb.Sheets(1).UsedRange.Copy .Cells(1, 1)
                Else
                    Wb.Sheets(1).UsedRange.Offset(3, 0).Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
                End If
                WbN = WbN & Chr(13) & Wb.Name
                Wb.Close False
            End With
        End If
        MyName = Dir
    Loop
    Range("A1").Select
    Application.ScreenUpdating = True
    MsgBox "共合并了" & Num & "个工作薄的工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub
各位老师好，上述代码是实现合并同一文件夹内工作簿用的，但我只想要所有工作簿A列到N列的数据，请问怎么改？我在论坛里搜索了几个小时，由于基础薄弱，没有找到答案，请各位指教，谢谢。

jiminyanyan

合并完了，把多余的数据删除。。。

ezail_1984

jiminyanyan 发表于 2018-7-20 19:40
合并完了，把多余的数据删除。。。

您好，我只是想学学如何修改上述代码来实现，谢谢。

lsc900707

上传附件看看。

ezail_1984

附件已上传，请过目。

LMY123

ezail_1984 发表于 2018-7-23 10:45
附件已上传，请过目。

http://club.excelhome.net/thread-1341555-1-1.html

1204989233

看符合你要求吗 符合的话 自己改参数

乐乐2006201505

Wb.Sheets(1).UsedRange.Offset(3, 0).Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
修改这句前半句即可。
Wb.Sheets(1).Range("a3:n" & Wb.Sheets(1).Range("A65536").End(xlUp).Row).Copy

ezail_1984

乐乐2006201505 发表于 2018-7-23 13:53
Wb.Sheets(1).UsedRange.Offset(3, 0).Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
修改这句前半 ...

谢谢您，我试了下，还是有N列后面的内容。

ezail_1984

1204989233 发表于 2018-7-23 13:42
看符合你要求吗 符合的话 自己改参数

谢谢您，我先学一下。