excel多表合一？1、首先打开其中一个【Excel】文档，如下图所示。2、然后点击【数据】，如下图所示。3、然后点击【新建查询】，如下图所示。4、然后点击【从文件】，如下图所示。5、然后点击【从工作簿】，如下图所示。6、那么，excel多表合一？一起来了解一下吧。
电脑有多个Excel表格，想要把这些Excel表格合并为一个表格，要怎么快速合并，如何把多个exce表格合并成一个excel表格，操作方法如下。
1、首先打开新建的excel表格，选择要合并的表格位置，尘碰磨点击栏的【数据】，再点击“现有连接”。
2、出现现有连接窗口，点击【浏览更多】。
3、找到要合并的excel表格，点击它，再点击【打开】。
4、出现该excel的数据表格，吵搏选择要合并的数据表格，再点击【确定】。
5、确定表格数据要放置的位置，再点击【确定】。
6、完成后，就会出现表格数据，然后再选择单元格，作为另外一个excel表格要放置的位置。
7、同样的方法，选派斗择另外一个excel表格，再点击【打开】如图所示。
8、完成后，就会出现表格数据，这样就把两个excel合并到一个excel表格了。
1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击Sheet1
2、选择查看代码岩困（PS：excel有着一项，WPS没有）
3、将下列代码复制到文本框中：
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536"粗孙念).End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "凯咐共合并了" & Num & "个工作薄下的全部工作表。
第一把这些表放在一个新建立 的文件夹里，
第二在这个新建立 的文件夹里再新建一个excel表格文件
打开这个文件在左下角sheet1标签处右键 查看代码然后把下面代码 复制进去 然后点运行运行子过程
等几不一会时间就可以了，你的表格没有合并过和单元格才行，如果 有这个程序也会中断的，还有蠢袭橘确定每个表的A列得有内容
等待合并完以后把B列有空的行用筛选的方式删除了就行
Sub 合并当带团前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536"禅袜).End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。
Q我吧，我跟你说怎么弄，前几天刚在这里给另一个朋友做过，可能他的表格式与你的不一样，所以VBA代码不拿橡谈适用，只要相应做些更改就可以了。
Private Sub CommandButton1_Click()
Dim i, j, k, l As Integer
Dim strPath As String
strPath = "d:\test" '消碰要处理的文件夹
With Application.FileSearch
.LookIn = strPath
.SearchSubFolders = False '不包含子文件如碧夹
.Filename = "*.xls"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles.Count
t (i)
j = Workbooks("汇总各月数据_遍历方式.xls").Sheets("Sheet1").Range("A65536").End(xlUp).Row
k = Sheets("Sheet1").Range("A65536").End(xlUp).Row
l = Sheets("sheet1").Range("IV1").End(xlToLeft).Column
Range("A2:" & Chr(l + 64) & k).Copy Workbooks("汇总各月数据_遍历方式.xls").Sheets("Sheet1").Range("A" & j + 1)
ActiveWorkbook.Close
Next i
End If
End With
End Sub
第一把这些表放在一个新建立 的文件夹里，
第二在这个新建立 的文件夹里再新建一个excel表格文件
打开这个文件在左下角sheet1标签处右键 查看代码然后把下面代码 复制进去 然后点运行运行子过程
等几不一会时间就可以了，你的表格没有合并过和单元格才行，如果 有这个程序也会中断的，还有蠢袭橘确定每个表的A列得有内容
等待合并完以后把B列有空的行用筛选的方式删除了就行
Sub 合并当带团前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536"禅袜).End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。
以上就是excel多表合一的全部内容，1、首先打开任意一张Excel表格，点击数据，再点击新建查询，页面弹出选项，点击从文件，再点击从工作薄。2、页面跳转，选择需要合并工作表的第一张表格。3、选择好后，点击导入。4、进入导航器，勾选选择多项，内容来源于互联网，信息真伪需自行辨别。如有侵权请联系删除。
