excel 2010 返回 : Run-time error '1004' : "PasteSpecial method of Range class failed

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

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

这将避免任何复制/粘贴错误，并且在此代码失败时对其进行故障排除是微不足道的。