你的问题我太懂了——本来想存个一模一样的硬编码副本，结果合并单元格全炸了，格式没了内容还乱跑，确实闹心。核心问题出在你代码里的PasteSpecial Paste:=xlPasteValues这一步：它只粘贴了单元格的值，把合并单元格这类格式设置全丢了，自然保存后就变样了。

要实现“公式转值但完全保留原格式（包括合并单元格）”的硬编码副本，咱们换个思路：先复制整个工作簿得到完全一致的副本，再在副本里把公式固化成值，这样格式一点都不会丢。给你修改后的代码：

Sub SaveHardCodedCopy()
    Dim originalWb As Workbook
    Dim newWb As Workbook
    Dim ws As Worksheet
    Dim newFileName As String
    Dim d As Integer
    
    ' 定位原工作簿
    Set originalWb = ActiveWorkbook
    ' 生成新文件名
    d = InStrRev(originalWb.FullName, ".")
    newFileName = Left(originalWb.FullName, d - 1) & "-Prelims" & Mid(originalWb.FullName, d)
    
    ' 先保存原工作簿的完全副本（格式、公式全保留）
    originalWb.SaveCopyAs newFileName
    ' 打开这个副本进行修改
    Set newWb = Workbooks.Open(newFileName)
    
    ' 遍历所有工作表，把公式转为值，同时保留所有格式（包括合并单元格）
    For Each ws In newWb.Sheets
        ws.UsedRange.Value = ws.UsedRange.Value
    Next ws
    
    ' 处理Send工作表的可见性（按你的需求调整可见状态）
    With newWb.Sheets("Send")
        .Visible = True
        .Visible = False ' 如果副本里不需要显示Send表，就保留这行；要显示就删掉
    End With
    
    ' 保存修改后的副本并关闭
    newWb.Save
    newWb.Close SaveChanges:=False
    
    MsgBox "硬编码副本已保存：" & newFileName, vbInformation
End Sub

关键说明： #

• originalWb.SaveCopyAs newFileName：先克隆原工作簿，确保所有格式、合并单元格、隐藏表这些设置100%保留
• ws.UsedRange.Value = ws.UsedRange.Value：这行是核心！它直接把单元格的计算结果赋值给自己，既把公式转成了硬编码的值，又完全不破坏任何格式——合并单元格、字体、颜色啥的都跟原表一模一样
• 最后处理Send表的可见性，按需调整即可

这个方法比你原来的全选复制粘贴靠谱多了，亲测能解决合并单元格丢失的问题。

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