[已解决]如何横向合并工作簿

songdg

用这个修改了一下参数搞掂了
Sub merge()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook
Dim G&, Num&, i&, j&
Application.ScreenUpdating = False
MyPath = "文件目录"
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
            For G = 1 To Sheets.Count
                Wb.Sheets(G).UsedRange.Copy .Range("A65536").End(xlUp)(1)
            Next
        Else
            For G = 1 To Sheets.Count
                Wb.Sheets(G).UsedRange.Offset(0, 2).Copy .Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)
            Next
        End If
    Wb.Close False
    End With
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
End Sub