Excel运行时错误1004：Range类PasteSpecial方法失败但代码功能正常

错误原因 #

你的代码里ActiveCell.EntireRow.Copy ActiveCell.Offset(1)这一行已经完成了复制+粘贴的完整操作——把当前行的所有内容（包括格式、合并设置、条件格式）直接复制到下一行。此时剪贴板的内容已经被消耗，后续调用ActiveCell.PasteSpecial时，找不到有效的剪贴板数据，因此触发1004错误。而你觉得功能正常，是因为第一次的Copy操作已经完成了核心需求，报错是多余的PasteSpecial导致的。

修正方案 #

方案1：移除多余的PasteSpecial（最简版）

直接保留Copy操作即可，它已经能继承所有格式和设置，同时添加代码清除复制状态，避免Excel的粘贴提示：

Public Sub AddNewRow()
    ActiveCell.EntireRow.Copy ActiveCell.Offset(1)
    Application.CutCopyMode = False ' 清除剪贴板复制状态
End Sub

方案2：精准控制粘贴内容（更严谨）

如果需要明确指定粘贴类型，可拆分复制和粘贴操作，确保目标行只继承格式相关设置（不复制单元格内容）：

Public Sub AddNewRow()
    Dim sourceRow As Range
    Set sourceRow = ActiveCell.EntireRow
    
    sourceRow.Copy
    ' 对目标行执行指定类型的粘贴
    sourceRow.Offset(1).PasteSpecial xlPasteAllMergingConditionalFormats
    Application.CutCopyMode = False ' 关闭复制模式
End Sub

关键说明 #

• xlPasteAllMergingConditionalFormats参数会粘贴所有内容并合并条件格式，完全满足你继承上方行格式和合并设置的需求。
• 加上Application.CutCopyMode = False可以避免Excel界面一直显示“粘贴”的浮动工具栏，提升用户体验。

内容的提问来源于stack exchange，提问作者Amanda Doty Nerdy_Knitter