excel 2010 返回：运行时错误“1004”：“Range 类的PasteSpecial 方法失败

Question

此 VBA 代码已开始返回错误消息：“运行时错误'1004'：“Range 类的PasteSpecial 方法失败”

我使用 VBA 代码将几个单元格复制并粘贴到下一行。我经常连续运行几次。第一次通过时它永远不会失败。它工作了好几年才开始失败。

Sub CopyInfoToLineBelowSamePO_Ctrl_Shft_Y()
'
' CopyInfoToLineBelowSamePO_Ctrl_Shft_Y Macro
'
' Keyboard Shortcut: Ctrl+Shift+Y
'
    Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(-1, 5).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, -5).Range("A1").Select
End Sub

我认为故障发生在这一点上（第一次出现）：

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

Answer 1

我不确定为什么您的代码在与以前使用的相同情况下使用时会开始失败。但是，我建议使用下面的代码来执行相同的操作：

Sub CopyInfoToLineBelowSamePO_Ctrl_Shft_Y()

ActiveCell.Offset(1, 0).Value2 = ActiveCell.Value2
ActiveCell.Offset(1, 5).Value2 = ActiveCell.Offset(0, 5).Value2
ActiveCell.Offset(1, 0).Select

End Sub

这不是使用剪贴板复制和粘贴值，而是直接将下一行中的单元格的值设置为它们上方的值，然后将选择移动到下一个单元格。

这将避免任何复制/粘贴错误，并且在此代码失败时排除故障是很简单的。