Question

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

Answer 1

　　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合并工作完成。

Answer 2

你是需要将工作表移动到另一个EXCEL中吗？如果只是移动工作表可以用以下的步骤：
1、同时打开EXCEL A （源文件）和EXCEL B （目标文件）
2、选择EXCEL A，右键点击工作表sheet 1，选择“移动或者复制工作表”，在弹出的对话框界面上的工作簿栏选择EXCEL B，然后选择位置，再然后建立副本打勾，点击确定即可。

追问

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

Answer 3

用宏可以很方便的实现如下：

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版的所以用了这个，行数也是可以自己调大的。

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