此處是以Excel2007為基礎
1）新建一個空白的excel檔案
2）選中巨集，跳出如下視窗，在巨集名下隨便命名，點選建立…
3）將下列程式碼貼上至建立後跳出的兩行程式碼之間，啥都不用改，除了……如果excel格式是xls，把xlsx改成xls即可
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel檔案(*.xlsx),*.xlsx", MultiSelect:=True, Title:="合併工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True4）貼上好後可以直接關掉，再點一次巨集，選中剛剛新建的，點選直接，全選要修改的excel，稍等幾秒就成功。sheets標籤格式可能不如人意，可根據具體需要修改。

本篇標為轉載，意為不是自己想出的辦法。