此处是以Excel2007为基础
1）新建一个空白的excel文件
2）选中宏，跳出如下窗口，在宏名下随便命名，点击创建…
3）将下列代码粘贴至创建后跳出的两行代码之间，啥都不用改，除了……如果excel格式是csv，把xlsx改成csv即可
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标签格式可能不如人意，可根据具体需要修改。