一个文件夹中有多个表格怎么汇总成一个表格多个分表的模式

更新时间2019-04-06 09:08:35

多个独立的表格合并成一个表格N个分表

Sub 合并()

'将同一路径下的多个工作簿(.xlsx)的工作表合并到有此代码的工作簿中

Dim MyPath$, MyName$

Application.ScreenUpdating = False

Set wb = ThisWorkbook

Application.DisplayAlerts = False

Do While wb.Sheets.Count >= 2

    Sheets(wb.Sheets.Count).Select

    ActiveWindow.SelectedSheets.Delete

Loop

Application.DisplayAlerts = True

MyPath = ThisWorkbook.Path & ""

MyName = Dir(MyPath & "*.xlsx")

Do While MyName <> ""

    If MyName <> wb.Name Then

        For Each ws In GetObject(MyPath & MyName).Worksheets

            ws.Move After:=wb.Sheets(wb.Sheets.Count)

        Next ws

    End If

    MyName = Dir

Loop

Application.ScreenUpdating = True

Application.DisplayAlerts = False

    Sheets(1).Select

    ActiveWindow.SelectedSheets.Delete

Application.DisplayAlerts = True

MsgBox "ok"

End Sub

把文件打开，点住工作表一个个拖进去，记得重命名，不然工作表较多的话，你都分不清哪个跟哪个。

一般拖动表格连接即可，但是表格排列方式必须吻合，才可以无缝连接