excel 合并多个工作表，保留列宽等格式

1、新建 Microsoft Office Excel 2007 工作表

2、打开，右键sheet1,选择查看代码

3、将以下代码复制粘贴

Sub 合并工作薄()

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 = True

Exit Sub

errhadler:

MsgBox Err.Description

End Sub

4、ctrl+s 保存，点击是，关闭文件

5、回到刚刚新建的这个工作表，点击开发工具，点击宏，选择你刚刚新建的宏，点执行后选择你要合并的多个工作表即可

6、