1. 首頁 > 生活百科 > >

excel怎么合并同類型工作表

生活百科小知識

一個文件夾下面有多個excel工作薄 ， 每個工作薄文件下面有不固定張數的同類型關鍵標題的工作表 。
現在的問題 ， 如何將這些多個文件實現合并到一張工作表 。
一般的做法 ， 通過復制粘貼 ， 實現合并工作表 。要高效 ， 可以使用VBA代碼來實現合并工作表 。
合并工作表操作步驟：
新建一個excel文件 ， 按ALT+F11 ， 打開VBE編輯器 ， 復制下面的代碼 ， 然后運行 ， 選擇文件夾下面的所有excel文件 ， 執行合并工作表 。
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’復制新打開工作簿的第一個工作表的已用區域到當前工作表
Workbooks(dirname).Sheets(1).UsedRange.Copy_
Range("A65536").End(xlUp).Offset(1,0)
Workbooks(dirname).CloseFalse
EndIf
dirname=Dir
Loop
EndSub
【excel怎么合并同類型工作表】說明：上面代碼是合并xlsx文件 ， 如果是合并excel2007的文件 ， 需要將：dirname=Dir(lj&"\*.xls*") ， xls改為.xlsx 。

    猜你喜歡