如何将多个excel表汇总到一个工作簿中
发布网友
发布时间：2022-03-03 03:13
共3个回答
懂视网
时间：2022-03-03 07:34
产品型号：ASUS S340MC
系统版本：Windows 10
软件版本：Microsoft Office Excel 2019
多个工作簿汇总成一个工作簿总共分为5步操作，具体的操作步骤如下：
1、首先在电脑上打开要编辑的Excel表格，打开后点击上方工具栏中的“数据”。
2、点击“获取数据”，选择“来自文件”、“从文件夹”，接着打开要汇总工作簿的文件夹。
3、在新弹出的窗口中点击“转换数据”，在编辑器中点击content旁边的箭头图标。
4、在合并文件窗口选择“参数1”，点击“确定”。然后点击date旁边的箭头图标，点击“确定”。
5、接着点击“关闭并上载”，选择“关闭并上载至”，最后点击“确定”即可。
总结
1、首先在电脑上打开要编辑的Excel表格，打开后点击上方工具栏中的“数据”。
2、点击“获取数据”，选择“来自文件”、“从文件夹”，接着打开要汇总工作簿的文件夹。
3、在新弹出的窗口中点击“转换数据”，在编辑器中点击content旁边的箭头图标。
4、在合并文件窗口选择“参数1”，点击“确定”。然后点击date旁边的箭头图标，点击“确定”。
5、接着点击“关闭并上载”，选择“关闭并上载至”，最后点击“确定”即可。
热心网友
时间：2022-03-03 04:42
alt+F11,把这段代码放进去看看。
下面是汇总多个工作簿的一种情形，也是一名网友提出的问题：在同一文件夹中有多个工作簿，其中
Sub UnionWorksheets()
Application.ScreenUpdating = False
Dim lj As String
Dim dirname As String
Dim nm As String
lj = ActiveWorkbook.Path
nm = ActiveWorkbook.Name
dirname = Dir(lj & "\*.xls*")
Cells.Clear
Do While dirname <> ""
If dirname <> nm Then
Workbooks.Open Filename:=lj & "\" & dirname
Workbooks(nm).Activate
'复制新打开工作簿的第一个工作表的已用区域到当前工作表
Workbooks(dirname).Sheets(1).UsedRange.Copy _
Range("A65536").End(xlUp).Offset(1, 0)
Workbooks(dirname).Close False
End If
dirname = Dir
Loop
End Sub
文库资料：http://wenku.baidu.com/view/0b4f551d59eef8c75fbfb32b?fr=prin
这里有另外两种情形，你看你的是哪一类。
或者，把你的文件发来，帮你弄好
热心网友
时间：2022-03-03 06:00
这个是没有什么通用方法的，得看你表格的具体情况。
