切割范围和PasteSpecial公式

Question

我正在尝试切割一系列细胞，然后粘贴相同范围的一个细胞。当我运行这个基本代码时，它仍然给我运行时错误1004应用程序或对象定义的错误。为什么我收到此错误？这需要一个数组吗？

Sub Cut_Paste
    Range("D4:F8").Cut
    Range("E4:G8").PasteSpecial xlPasteFormulas
End Sub

Answer 1

仅使用目的地的左上角单元格复制较大的范围，然后清除。

Sub Cut_Paste
    with Range("D4:F8")
        .copy
        Range("E4").PasteSpecial xlPasteFormulas
        .clear
    end with
End Sub

Answer 2

尝试类似的东西：

Sub Cut_Paste
    Range("D4:F8").Cut Destination:=Range("E4:G8")    
End Sub