一個文件夾下面有多個excel工作薄，每個工作薄文件下面有不固定張數(shù)的同類型關(guān)鍵標(biāo)題的工作表。
現(xiàn)在的問題，如何將這些多個文件實(shí)現(xiàn)合并到一張工作表。
一般的做法，通過復(fù)制粘貼，實(shí)現(xiàn)合并工作表。要高效，可以使用VBA代碼來實(shí)現(xiàn)合并工作表。
合并工作表操作步驟：
新建一個excel文件，按ALT+F11，打開VBE編輯器，復(fù)制下面的代碼，然后運(yùn)行，選擇文件夾下面的所有excel文件，執(zhí)行合并工作表。
SubUnionWorksheets()
Application.ScreenUpdating=False
DimljAsString
DimdirnameAsString
DimnmAsString
lj=ActiveWorkbook.Path
nm=ActiveWorkbook.Name
dirname=Dir(lj&"\*.xls*")
Cells.Clear
DoWhiledirname<>""
Ifdirname<>nmThen
Workbooks.OpenFilename:=lj&"\"&dirname
Workbooks(nm).Activate’復(fù)制新打開工作簿的第一個工作表的已用區(qū)域到當(dāng)前工作表
Workbooks(dirname).Sheets(1).UsedRange.Copy_
Range("A65536").End(xlUp).Offset(1,0)
Workbooks(dirname).CloseFalse
EndIf
dirname=Dir
Loop
EndSub
說明：上面代碼是合并xlsx文件，如果是合并excel2007的文件，需要將：dirname=Dir(lj&"\*.xls*")，xls改為.xlsx。
