从Excel中移动值，同时在Excel VBA中保留公式

Question

我正在尝试创建一个宏，将值从一个范围移动到另一个范围，同时保留范围内的公式。

到目前为止，我有这个：

Sub change_fiscal_year()

Sheets("1 Income statement").Range("E1:E23").Value = Sheets("1 Income statement").Range("D1:D23").Value

End Sub

它有效，但它会复制值而不是移动它们，因此不保留公式。我怎么能绕过这个？

Answer 1

试试这个：

Sheets("1 Income statement").Range("E1:E23").Formula = Sheets("1 Income statement").Range("D1:D23").Formula