如何将多个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

这个是没有什么通用方法的，得看你表格的具体情况。