VBA代碼如下
Sub 合并表格()
Dim myPath$, myFile$, AK As Workbook, aRow%, tRow%, i As Integer
Application.ScreenUpdating = False '凍結(jié)屏幕置济，以防屏幕抖動(dòng)
myPath = ThisWorkbook.Path & "\" '把文件路徑定義給變量
myFile = Dir(myPath & "*.xls") '依次找尋指定路徑中的*.xls文件
Do While myFile <> "" '當(dāng)指定路徑中有文件時(shí)進(jìn)行循環(huán)
If myFile <> ThisWorkbook.Name Then
Set AK = Workbooks.Open(myPath & myFile) '打開(kāi)符合要求的文件
For i = 1 To AK.Sheets.Count
aRow = AK.Sheets(i).Range("a65536").End(xlUp).Row
tRow = ThisWorkbook.Sheets(1).Range("a65536").End(xlUp).Row + 1
'AK.Sheets(i).Select
AK.Sheets(i).Range("a2:k" & aRow).Copy ThisWorkbook.Sheets(1).Range("a" & tRow)
Next
Workbooks(myFile).Close False '關(guān)閉源工作簿,并不作修改
End If
myFile = Dir '找尋下一個(gè)*.xls文件
Loop
Application.ScreenUpdating = True '凍結(jié)屏幕,此類(lèi)語(yǔ)句一般成對(duì)使用
MsgBox "匯總完成壹瘟，請(qǐng)查看阅签！", 64, "提示"
End Sub
注意用新建xls表格來(lái)用此代碼矿瘦，注意路徑和文件名
PS：其實(shí)這個(gè)代碼是網(wǎng)上找到的，我只會(huì)用愿卒，具體每行代碼什么意思缚去，我并不知道。
