怎么在同一个文件夹下的多个EXCEL文件合并到一个EXCEL里？

Posted 2023-04-25

　　1、新建一个.txt文本文件，命名为“合并.txt”。
　　2、打开文件，复制以下代码到文件中：
　　@echo off
　　E:
　　cd xls
　　dir
　　copy *.csv all_keywords.csv
　　echo @@@@@@@@@@@@@合并成功！@@@@@@@@@@@@@'
　　pause
　　3、复制好代码后，保存并关闭txt文件，然后将.txt后缀改为.bat，这样合并程序就做好了。
　　4、给存放excel文件找个硬盘，以E盘为例，在E盘中创建一个新的文件夹，命名为“xls”
　　5、将需要合并的csv文件或xls文件放到文件夹中。
　　6、双击合并.bat，工具会自动运行合并任务，速度相当快，不过多少个文件，几秒钟即可。
　　7、查看xls文件夹，生成了一个合并文件all_keywords.csv，excel合并工作完成。 参考技术A 你是需要将工作表移动到另一个EXCEL中吗？如果只是移动工作表可以用以下的步骤：
1、同时打开EXCEL A （源文件）和EXCEL B （目标文件）
2、选择EXCEL A，右键点击工作表sheet 1，选择“移动或者复制工作表”，在弹出的对话框界面上的工作簿栏选择EXCEL B，然后选择位置，再然后建立副本打勾，点击确定即可。追问

我的多个工作表里做了几十个单独的文件，然后我想把这几十个单独的文件移到一个EXCEL表格里面（EXCEL不是有sheet1 sheet2 sheet3 sheet4 么)

本回答被提问者采纳 参考技术B 用宏可以很方便的实现如下：

Sub UnionWorksheets()
Application.ScreenUpdating = False

Dim dirname As String
Dim nm As String

nm = ActiveWorkbook.Name
dirname = Dir("E:\123\*.xls")
Cells.Clear
Do While dirname <> ""
If dirname <> nm Then
Workbooks.Open Filename:="E:\123\" & 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

新建一个EXCEL工作簿，打开开发工具里面的 Visual Basic 把上面的代码复制进去，然后根据下面的提示适当修改即可。
其中的 dirname = Dir("E:\123\*.xls")
Workbooks.Open Filename:="E:\123\" & dirname
是文件夹的路径，根据自己电脑的文件夹路径修改就可以。
Range("A65536").End(xlUp).Offset(1, 0)
这个A65536是行数，因为考虑是03版的所以用了这个，行数也是可以自己调大的。

这个宏可以实现 汇总同一个文件夹下的所有工作薄的功能。

合并excel多个工作表

参考技术A

合并excel多个工作表的方法如下：

1、打开表格之一，点击右上角的合并表格。

2、在弹框里面点击合并成一个工作表。

3、点击弹框右上角的添加文件，找到其他表格。

4、选好表格后，点击开始合并即可。

Microsoft Office Excel简介

Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。在1993年，作为Microsoft Office的组件发布了5.0版之后，Excel就开始成为所适用操作平台上的电子制表软件的霸主。

早期，由于和另一家公司出售的名为Excel的软件同名，Excel曾成为了商标法的目标，经过审判，Microsoft被要求在它的正式文件和法律文档中以Microsoft Excel来命名这个软件。但是，随着时间的过去，这个惯例也就逐渐消逝了。

Excel虽然提供了大量的用户界面特性，但它仍然保留了第一款电子制表软件VisiCalc的特性：行、列组成单元格，数据、与数据相关的公式或者对其他单元格的绝对引用保存在单元格中。