复制粘贴引发#VALUE!错误，求VBA实现工作表特殊粘贴合并方案

你目前的代码能实现三个工作表的合并，但因为其中两个工作表包含公式，直接复制粘贴会把公式引用带过去（或因引用失效）导致Master表出现#VALUE!错误。要解决这个问题，只需要把普通粘贴改成特殊粘贴值（或值+格式），这样就能把公式计算后的结果直接复制到主表，不会保留公式引发错误。

我帮你调整了代码，同时修正了原代码里的小问题（比如中文引号会导致语法错误），修改后的完整代码如下：

Sub Combine3Sheet()
    Dim Ary As Variant
    Dim Ws As Worksheet
    Dim targetRange As Range
    
    ' 注意：把原代码里的中文引号改成英文引号，避免语法错误
    Ary = Array("Sheet1", "Sheet2", "Sheet3")
    
    ' 确保Master表存在并命名（如果需要的话，也可以先判断是否存在）
    On Error Resume Next
    Sheets("Master").Name = "Master"
    On Error GoTo 0
    
    For Each Ws In Worksheets(Ary)
        ' 跳过空工作表的情况，避免报错
        If Not Ws.UsedRange Is Nothing Then
            ' 复制数据区域（跳过表头行）
            Ws.UsedRange.Offset(1).Copy
            
            ' 定位到Master表的下一个空行
            Set targetRange = Sheets("Master").Range("A" & Rows.Count).End(xlUp).Offset(1)
            
            ' 特殊粘贴：值和数字格式，既保留计算结果，又保留原格式
            targetRange.PasteSpecial xlPasteValuesAndNumberFormats
            
            ' 清除剪贴板状态，避免Excel一直显示复制提示
            Application.CutCopyMode = False
            
            ' 调用格式化函数
            Call Formatting
        End If
    Next Ws
End Sub

关键修改说明： #

• 替换普通粘贴为特殊粘贴：使用PasteSpecial xlPasteValuesAndNumberFormats，把公式计算后的结果和格式一起粘贴，彻底避免公式引用失效的问题。如果你只需要纯数值，可以改成xlPasteValues。
• 修正中文引号：原代码里的“Sheet2”是中文引号，VBA无法识别，改成英文引号"Sheet2"。
• 加入空表判断：避免当某个工作表没有数据时出现运行错误。
• 清除剪贴板：用Application.CutCopyMode = False释放剪贴板，提升代码稳定性，避免Excel一直显示复制状态。

这样修改后，合并到Master表的就都是计算好的数值，不会再出现#VALUE!错误啦。

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