Excle表格多文件内容合并与多表单合并操作

将多个Excel文件合并成一个且保留原有数据

1、将需合并的Excel文件放在同一个文件夹中，并这个文件中新建一个Excel文件。

2、打开新建的Excel文件，按 Alt + F11 键，打开宏，选择视图→代码窗口

3、将下面的代码拷贝进去：

Subsheets2one()
'定义对话框变量
DimccAsFileDialog
Setcc=Application.FileDialog(msoFileDialogFilePicker)
DimnewworkAsWorkbook
Setnewwork=Workbooks.Add
Withcc
If.Show=-1Then
DimvrtSelectedItemAsVariant
DimiAsInteger
i=1
ForEachvrtSelectedItemIn.SelectedItems
DimtempwbAsWorkbook
Settempwb=Workbooks.Open(vrtSelectedItem)
tempwb.Worksheets(1).CopyBefore:=newwork.Worksheets(i)
newwork.Worksheets(i).Name=VBA.Replace(tempwb.Name,".xls","")
tempwb.CloseSaveChanges:=False
i=i+1
NextvrtSelectedItem
EndIf
EndWith
Setcc=Nothing
EndSub

4、点击运行选项运行宏命令

5、之后弹出选择对话框，选择要批量合并的Excel名，确定即可

6、程序运行完毕后，会自动生成一个工作簿，工作簿内包含所有需合并的Excel文件，将工作簿另存为即可。

以上步骤便是，合并后的Excel文档会献出多个Sheet页，我们可以很方便的切换了解。

快速合并单个excel表中的多个sheet的工作页

有时候因工作需要在合并多个文件以后还需要多多个表格进行合并【此操作一般建立在表格之间有共性之处】

承接合并多个文件上面操作后进行多表单合并操作步骤：

1、首先要在最前页新建一个工作表

2、找到“查看代码”，然后看到宏计算界面

3、看到宏计算界面，我们就只需要把下面的代码复制进去，代码如下，效果如下：

Sub合并当前工作簿下的所有工作表()
Application.ScreenUpdating=False
Forj=1ToSheets.Count
IfSheets(j).Name<>ActiveSheet.NameThen
X=Range("A65536").End(xlUp).Row+1
Sheets(j).UsedRange.CopyCells(X,1)
EndIf
Next
Range("B1").Select
Application.ScreenUpdating=True
MsgBox"当前工作簿下的全部工作表已经合并完毕！",vbInformation,"提示"
EndSub

4、做完上面的事情，然后只需要点击工具栏上面的“运行”下的“运行子过程/用户窗体”就可以了，合并完之后会有提示。提示完成之后就可以把宏计算界面关闭了。

5、完成以上操作执行后就得到多表单合并的表单了，后续只需要按照自己的需求对合并后的表单进行数据加工。

注意事项：以上操作均在Microsoft Office里面完成的。