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

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

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

你可以新建一个表格，把你的每一个文件单独复制以后粘贴到新表1.2.3……里就行了。

共享汇总