在你的當前工作簿下新建一個sheet然后你在這個sheet和標簽處右鍵 查看代碼（找不到的直接按一下alt+F11) 把下面 的代碼復制進去 然后點上面的運行 運行子程序就可以了Sub 合并當前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.CountIf Sheets(j).Name <> ActiveSheet.Name ThenX = Range("A65536").End(xlUp).Row + 1Sheets(j).UsedRange.Copy Cells(X, 1)End If Next Range("B1").Select Application.ScreenUpdating = True MsgBox "當前工作簿下的全部工作表已經合并完畢！", vbInformation, "提示" End Sub

總結

以上是生活随笔為你收集整理的如何将EXCEL中同一个工作薄多张工作表合并的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。