Excel多個表數據合並代碼
阿新 • • 發佈:2019-04-15
中新 新建 next 粘貼 end app 提示 ring msgbox
要求:多個子表數據格式需一致
- 新建一個空文件夾,將需要合並的子表放在空文件夾中
- 在文件夾中新建一個空的excel文件
- 打開空的excel,右鍵Sheet1,點擊查看代碼
- 將以下代碼粘貼到代碼框中
1 Sub 合並當前目錄下所有工作簿的全部工作表() 2 3 Dim MyPath, MyName, AWbName 4 5 Dim Wb As Workbook, WbN As String 6 7 Dim G As Long 8 9 Dim Num As Long 10 11 Dim BOX As String 12 13 Application.ScreenUpdating = False
- 點擊運行按鈕或按F5運行
- 關閉窗口,查看Excel中合並的數據,刪除重復的表頭即可
Excel多個表數據合並代碼