同一文件夾內(nèi)N個(gè)工作簿 ，每個(gè)工作簿里N個(gè)工作表，最終合并到一個(gè)工作表里的代碼。

假設(shè)每個(gè)表格結(jié)構(gòu)相同，第一行為標(biāo)題，第二行為表頭，表頭內(nèi)容固定，行數(shù)不固定，列固定14，工作表數(shù)量不固定，工作簿數(shù)量不固定。

?

Sub Sample()

Dim MyWb As Workbook

Dim MySht As Worksheet

Dim MyName As String, MyPath As String

Dim MyRow As Long, MySRow As Long, MyShtN As Long

Dim MyArr

MyPath = ThisWorkbook.Path & "\"

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

With ActiveSheet

.Cells.Clear

Range("a1") = "標(biāo)題"

Range("a2:n2") = "表頭"

Do While MyName <> ""

If MyName <> ThisWorkbook.Name Then

Set MyWb = Workbooks.Open(MyPath & MyName)

For MyShtN = 1 To Sheets.Count

MySRow = .Cells(Rows.Count, 1).End(xlUp).Row

MyRow = Cells(Rows.Count, 1).End(xlUp).Row

MyArr = Sheets(MyShtN).Range("a3").Resize(MyRow - 2, 14)

.Cells(MySRow + 1, 1).Resize(MyRow - 2, 14) = MyArr

Next

MyWb.Close False

End If

MyName = Dir

Loop

With .UsedRange

.Columns.AutoFit

.Borders.Color = 1

End With

End With

End Sub