君语贤
时光静好,与君语;细水流年,与君同;繁华落尽,与君老...

实用小技巧>excel>正文

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

2019-06-25 11:08 君语贤内容合并多文件多表单合并操作表格

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

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

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

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

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

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

Sub sheets2one()
'定义对话框变量
Dim cc As FileDialog
Set cc = Application.FileDialog(msoFileDialogFilePicker)
Dim newwork As Workbook
Set newwork = Workbooks.Add
With cc
If .Show = -1 Then
Dim vrtSelectedItem As Variant
Dim i As Integer
i = 1
For Each vrtSelectedItem In .SelectedItems
Dim tempwb As Workbook
Set tempwb = Workbooks.Open(vrtSelectedItem)
tempwb.Worksheets(1).Copy Before:=newwork.Worksheets(i)
newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")
tempwb.Close SaveChanges:=False
i = i + 1
Next vrtSelectedItem
End If
End With
Set cc = Nothing
End Sub

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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
   If Sheets(j).Name <> ActiveSheet.Name Then
       X = Range("A65536").End(xlUp).Row + 1
       Sheets(j).UsedRange.Copy Cells(X, 1)
   End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕!", vbInformation, "提示"
End Sub

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

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

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

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

本文链接:https://www.weguiding.com/excel/557.html