Excel自动化工具-工作簿中sheet页合并-可自行选择需要处理的工作簿
宝子们可以选择直接下载文章顶部资源包【Excel自动化工具-工作簿中sheet页合并.xlsm】（或者在博主的资源里下载），该资源功能为：合并sheet页
或者也可以自己编写宏代码，文章最后有附上源代码
没有office excel 的宝子请先安装，下载教程请点击下面链接查看：
需求展示：把工作簿 ‘测试.xlsx’ 里的sheet页的数据内容（除名为‘合并数据’sheet页除外），全部合并到‘名为 ‘合并数据’sheet页’ 里面（自动生成），如下图所示：
使用方式：直接打开资源文件使用
>>打开下载的 【自定义合并sheet页.xlsm 】文件>>点击 ‘开始合并sheet页’ 按钮>>选择你要操作的工作簿即可（详细可参考文件中的“使用说明”）
想要自己动手的宝子可以点击以下链接查看博文，里参考里面的编写宏和调用宏的详细步骤：
根据自定义名称批量创建sheet页，详细操作步骤！
代码示例：
' 这个函数接受一个Workbook对象和一个工作表名称（默认为"合并数据"）
' 然后在这个Workbook中合并所有工作表（除了指定的工作表）
Function MergeAllSheets(ByRef wb As Workbook, Optional ByVal destSheetName As String = "合并数据")
Dim ws As Worksheet
Dim destSheet As Worksheet
Dim lastRow As Long
Dim sheetName As String
' 检查是否存在指定的工作表，如果不存在则创建
On Error Resume Next
Set destSheet = wb.Sheets(destSheetName)
If destSheet Is Nothing Then
Set destSheet = wb.Sheets.Add(After:=wb.Sheets(wb.Sheets.Count))
destSheet.Name = destSheetName
End If
On Error GoTo 0
' 清空合并数据工作表的内容
destSheet.Cells.Clear
' 遍历所有工作表（除了合并数据工作表）
For Each ws In wb.Sheets
If ws.Name <> destSheet.Name Then
' 在总Sheet中添加工作表名称（加上“.sheet”后缀）
sheetName = ws.Name & ".sheet"
lastRow = destSheet.Cells(destSheet.Rows.Count, 1).End(xlUp).Row + 1
destSheet.Cells(lastRow, 1).Value = sheetName
' 复制当前工作表的内容到总Sheet
lastRow = lastRow + 1 ' 移动到下一个空白行
ws.UsedRange.Copy Destination:=destSheet.Cells(lastRow, 1)
End If
Next ws
' 自动调整列宽
destSheet.Columns.AutoFit
End Function
' 这个子程序让用户选择一个工作簿，并在该工作簿中调用MergeAllSheets函数
Sub MergeSheetsFromSelectedWorkbook()
Dim wb As Workbook
Dim filePath As Variant
' 允许用户选择一个文件
filePath = Application.GetOpenFilename("Excel Files (*.xlsm), *.xlsm")
' 如果用户选择了文件
If filePath <> "False" Then
' 打开工作簿
Set wb = Workbooks.Open(filePath)
' 调用合并函数
MergeAllSheets wb
' 可选：保存并关闭工作簿
' wb.Save
' wb.Close
End If
End Sub代码说明：
这个资源包含两个主要部分：一个函数MergeAllSheets和一个子程序MergeSheetsFromSelectedWorkbook。它们协同工作，用于在一个Excel工作簿中合并所有工作表（除了指定的一个工作表）的数据到一个名为“合并数据”的工作表中。
MergeAllSheets 函数
功能描述：
该函数接受一个Workbook对象（wb）和一个可选的工作表名称（默认为“合并数据”）。它遍历工作簿中的所有工作表（除了指定的“合并数据”工作表），将每个工作表的名称（加上“.sheet”后缀）和工作表内容复制到“合并数据”工作表中。每个工作表的内容前都会加上其名称作为标题，以便于区分。
实现细节：
检查并创建目标工作表：如果“合并数据”工作表不存在，则创建一个新的工作表并命名为“合并数据”。
清空目标工作表：在合并之前，清空“合并数据”工作表的所有内容。
遍历工作表：遍历工作簿中的所有工作表，对于每个工作表，如果它不是“合并数据”工作表，则执行以下操作：
将工作表名称（加上“.sheet”后缀）写入“合并数据”工作表的下一行。
将当前工作表的内容复制到“合并数据”工作表的下一个空白行。
自动调整列宽：最后，自动调整“合并数据”工作表的所有列宽以适应内容。
使用方式：
该函数需要在VBA环境中被调用，并传入一个Workbook对象和一个可选的工作表名称。
MergeSheetsFromSelectedWorkbook 子程序
功能描述：
该子程序允许用户通过Excel的文件选择对话框选择一个工作簿文件，然后调用MergeAllSheets函数来合并该工作簿中的所有工作表（除了“合并数据”工作表）。
实现细节：
选择文件：使用Application.GetOpenFilename方法显示文件选择对话框，让用户选择一个Excel工作簿文件。
打开工作簿：如果用户选择了一个文件，则打开该工作簿。
调用合并函数：调用MergeAllSheets函数，传入打开的工作簿对象，执行合并操作。
可选操作：注释掉的代码段显示了如何在合并后保存并关闭工作簿的示例。
使用方式：
该子程序可以直接在VBA编辑器中运行，或者通过为其分配一个按钮或快捷键在Excel界面中触发。
总结
这段代码实现了在Excel VBA中合并一个工作簿中所有工作表（除了指定的一个）到一个名为“合并数据”的工作表的功能。用户可以通过一个文件选择对话框来选择要合并的工作簿。合并过程中，每个工作表的内容前都会加上其名称作为标题，以便于区分。最后，自动调整“合并数据”工作表的列宽以适应内容。
原文地址：https://blog.csdn.net/2401_83100107/article/details/140415691
免责声明：本站文章内容转载自网络资源，如本站内容侵犯了原著者的合法权益，可联系本站删除。更多内容请关注自学内容网（zxcms.com）！