Excel VBA粘贴数据后追加'Model'字符串触发调试错误如何解决？

错误原因 #

你的写法属于语法错误：PasteSpecial 方法的第一个入参是粘贴类型枚举，xlPasteValues 是VBA内置的数值类型常量（实际值为-4163），仅用于指定粘贴时仅粘贴数值，不能直接和字符串拼接。你当前的写法相当于给方法传入了"-4163 Model"的字符串，和参数要求的枚举类型不匹配，因此触发类型不匹配报错。

解决方案 #

最小改动方案（兼容原有逻辑） #

把追加文本的操作和粘贴操作拆分，先正常粘贴数值，再批量给目标区域追加 Model后缀即可，修正后代码如下：

If Model.Rows.Count > 1 Then
    Model.Columns(1).SpecialCells(xlCellTypeConstants).Copy
    ' 第一步先正常粘贴值
    .Cells(n + 1, "E").PasteSpecial xlPasteValues
    ' 第二步批量追加Model后缀
    With .Range(.Cells(n + 1, "E"), .Cells(n + 1, "E").End(xlDown))
        .Value = Evaluate(.Address & "&"" Model""")
    End With
    ' 后续Q列逻辑不变
    Model.Columns(2).SpecialCells(xlCellTypeConstants).Copy
    .Cells(n + 1, "Q").PasteSpecial xlPasteValues
Else
    Model.Columns(1).Copy
    .Cells(n + 1, "E").PasteSpecial xlPasteValues
    ' 单个单元格直接追加内容
    .Cells(n + 1, "E").Value = .Cells(n + 1, "E").Value & " Model"
    Model.Columns(2).Copy
    .Cells(n + 1, "Q").PasteSpecial xlPasteValues
End If
' 粘贴完成后清空剪贴板避免残留
Application.CutCopyMode = False

更优方案（不占用剪贴板，执行效率更高） #

可以跳过复制粘贴步骤，直接读取源区域的值处理后写入目标区域，避免操作剪贴板带来的额外开销，如果源区域是筛选后生成的不连续单元格，该方案也更稳定：

Dim sourceRng As Range, i As Long, arr
' 处理E列带追加后缀的逻辑
If Model.Rows.Count > 1 Then
    Set sourceRng = Model.Columns(1).SpecialCells(xlCellTypeConstants)
Else
    Set sourceRng = Model.Columns(1)
End If
' 读取源区域值到数组处理
arr = sourceRng.Value
If IsArray(arr) Then
    For i = 1 To UBound(arr)
        arr(i, 1) = arr(i, 1) & " Model"
    Next
Else
    arr = arr & " Model"
End If
' 直接写入目标区域
.Cells(n + 1, "E").Resize(sourceRng.Rows.Count, 1).Value = arr

' 处理Q列纯数值赋值逻辑
If Model.Rows.Count > 1 Then
    Set sourceRng = Model.Columns(2).SpecialCells(xlCellTypeConstants)
Else
    Set sourceRng = Model.Columns(2)
End If
.Cells(n + 1, "Q").Resize(sourceRng.Rows.Count, 1).Value = sourceRng.Value

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