Excel的VBA。移动公式而不复制它们

Question

我从我的宏中获取以下代码，该代码正常工作：

.Cells(curRow, "M").Copy
.Range("N" & curRow & ":R" & curRow).PasteSpecial Paste:=xlPasteFormulas

我想问一下是否有办法移动公式而不复制粘贴它们？我需要移动更改的引用。

我认为复制粘贴不是最快的方法。

Answer 1

如果您想更改参考，我知道的唯一方法是复制和粘贴。 如果您不想这样，可以使用：

.Range("N" & curRow & ":R" & curRow).FormulaR1C1 = .Cells(curRow, "M").FormulaR1C1

Answer 2

.Range("N" & curRow & ":R" & curRow).Cells.Formula = .Cells(curRow, "M").Formula

Answer 3

试试这个

.Cells(curRow, "M").Copy .Range("N" & curRow & ":R" & curRow)