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

乐乐2006201505

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 = Range("A65536").End(xlUp).Row
    Do While MyName <> ""
        If MyName <> AWbName Then
            Set Wb = Workbooks.Open(MyPath & "\" & MyName)
            Num = Num + 1
            With Workbooks(1).ActiveSheet
                If Num = 2 Then
                    Wb.Sheets(1).Range("a1:n2").Copy .Cells(1, 1)
                Else
                    Wb.Sheets(1).Range("a4:n" & Wb.Sheets(1).Range("A65536").End(xlUp).Row).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

ezail_1984

乐乐2006201505 发表于 2018-7-23 17:23
Sub 合并当前目录下所有工作簿的全部工作表()
    Dim MyPath, MyName, AWbName
    Dim Wb As Workbook, ...

谢谢~！！！！！！