EXCEL怎么把多个表格合并到一张表格里
发布网友
发布时间：2022-04-29 04:39
共4个回答
热心网友
时间：2023-04-27 07:40
2、打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。
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 & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub
4、运行之后，等待10秒针左右，等运行完毕，就是合并完成之后，会有提示，点确定就可以了。
热心网友
时间：2023-04-27 07:40
使用dir或者fso文件系统，进行遍历文件
然后根据需求进一步汇总合并
热心网友
时间：2023-04-27 07:41
您好，以下excel怎么把多个表格内容合并到一起的方法：
步骤1、首先打开一个新建的工作簿，点击【数据】-【新建查询】，选择【从文件】-【从文件夹】；步骤2、接点击【浏览】，找到并打开文件夹目录，点击【确定】；
步骤3、然后点击【添加列】-【添加自定义列表】；步骤4、输入公式【＝Excel.WorkBook（{Content},true）】，点击【确定】；步骤5、再点击Custom右侧的符号，选择【Data】，点击【确定】；
步骤6、继续点击Custom右侧的符号，点击确定；步骤7、最后点击【文件】-【关闭并上载】，如果只需要数据源，可以把表格前面的数据删除即可。
非常感谢您的咨询，希望我的回答能够帮助到你，如果以后您这边有什么需求的话，都可以向我咨询，我一定会为您耐心解答，祝您生活愉快。
热心网友
时间：2023-04-27 07:41
