如何快速合并单个excel表中的多个sheet的工作页

Question

如题所述

Answer 1

如果你需要快速地合并多个工作页，可以尝试使用 Excel 中的“宏”功能，它可以自动化执行重复的任务。以下是使用“宏”合并多个 Excel 工作页的步骤：
1. 打开一个新的 Excel 工作簿，并在新工作簿的第一个 sheet 工作页中选中你要合并的所有 sheet 工作页。你可以通过按住 Shift 键并单击工作页的名称来选择需要合并的单元格。
2. 按下 Alt + F8 快捷键，打开“宏”对话框。在“宏名称”文本框中命名一个新的宏。
3. 在“宏”对话框中单击“创建”按钮，打开“Visual Basic Editor”。
4. 在“Visual Basic Editor”中，复制并粘贴以下代码：
Sub Combine_Sheets()
Dim can As Worksheet
Dim dest As Worksheet
Set dest = Worksheets.Add
dest.Name = "Combined Sheets"
For Each can In ThisWorkbook.Worksheets
If Not can.Name = dest.Name Then
can.Activate
Range("A1").Select
Range(Selection, Selection.SpecialCells(xlLastCell)).Select
Selection.Copy
dest.Activate
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
ActiveSheet.Paste
End IfNext canEnd Sub
这个宏会遍历所有的 sheet 工作页，将它们复制到新工作簿的一个 sheet 工作页中。
5. 保存并关闭“Visual Basic Editor”窗口，返回“Excel”窗口。如果有需要，你可以重新打开之前的 Excel 表格，然后从选项卡中选择“开发者” -> “宏”，然后运行这个新建的宏。

6. 等待宏执行完毕，合并后的工作页会显示在新工作簿的一个名为“Combined Sheets”的 sheet 工作页中。

希望这个宏可以帮助你快速地合并多个 Excel 工作页。