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)

Answer 4

這是在公式中移動/移動引用的最佳方法，它使用本機 VBA function ConvertFormula() ！

Function MoveFormulaReferences$(strFormula$, rngRelativeTo As Range, lngOffsetRows&, lngOffsetColumns)
    MoveFormulaReferences = Application.ConvertFormula( _
                                                       Application.ConvertFormula( _
                                                                                  strFormula, _
                                                                                  XlReferenceStyle.xlA1, _
                                                                                  XlReferenceStyle.xlR1C1, _
                                                                                  , _
                                                                                  rngRelativeTo), _
                                                       XlReferenceStyle.xlR1C1, _
                                                       XlReferenceStyle.xlA1, _
                                                       , _
                                                       rngRelativeTo.Offset(lngOffsetRows, lngOffsetRows))
End Function

現在舉一些例子：

?MoveFormulaReferences("=C3*2+C3", Range("$D$4"), -2, -2)

返回=A1*2+A1

?MoveFormulaReferences("=$C3*2+C3", Range("$D$4"), -2, -2)

回報=$C1*2+A1

也可以使用ConvertFormula() function 的ToAbsolute參數“強制移動”所有引用，即使是由前導$設置的引用：在嵌套的ConvertFormula()調用中傳遞XlReferenceType.xlRelative作為參數