如何将两个带特定布局的工作表合并为一个以生成PDF？

问题说明 #

有两个带有特定布局的工作表，使用sourceSheet1.UsedRange.Copy destinationSheet.Cells(1, 1)或PasteSpecial Paste:=方法复制时会丢失布局；只有完整复制工作表能保留布局，示例代码如下：

Set ws1 = ThisWorkbook.Worksheets("test")
ws1.Copy ThisWorkbook.Sheets(Sheets.Count)

但无法将两个工作表合并到同一个工作表中。

实现方案 #

要保留布局并完成工作表合并，可按以下步骤操作：

1. 创建合并基础工作表 #

先复制第一个工作表到工作簿末尾，作为合并后的目标工作表，完整保留其布局：

Set sourceWs1 = ThisWorkbook.Worksheets("Sheet1")
sourceWs1.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Set targetWs = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
targetWs.Name = "CombinedSheet" ' 自定义合并工作表名称

2. 复制第二个工作表内容并保留布局 #

找到目标工作表的最后一行，通过多级粘贴确保布局、格式、内容完整迁移：

Set sourceWs2 = ThisWorkbook.Worksheets("Sheet2")
' 获取目标表的最后数据行，下一行作为粘贴起始位置
Dim lastRow As Long
lastRow = targetWs.Cells(targetWs.Rows.Count, 1).End(xlUp).Row + 1

' 复制源表已用区域，按源主题粘贴所有内容与格式
sourceWs2.UsedRange.Copy
targetWs.Cells(lastRow, 1).PasteSpecial Paste:=xlPasteAllUsingSourceTheme
' 单独粘贴列宽，确保布局完全一致
targetWs.Cells(lastRow, 1).PasteSpecial Paste:=xlPasteColumnWidths
' 清除复制状态
Application.CutCopyMode = False

补充说明 #

• 如果两个工作表包含重复表头，复制第二个表时可从第2行开始，避免重复：sourceWs2.Rows("2:" & sourceWs2.UsedRange.Rows.Count).Copy
• xlPasteAllUsingSourceTheme参数会完整继承源工作表的样式主题，是保留布局的核心

内容的提问来源于stack exchange，提问作者user5764