excel - 使用相对参考将公式从 [1,X] 范围复制到 [Y,X] 范围

Question

我有两个命名范围，SourceG3:M3 和TargetG8:M10。

Source包含一个引用同一行范围之外的单元格的公式。我想把它复制到目标范围内，如图。

我写了以下例程

Sub CopyFormulas()

TargetRangeName = "Target"
SourceRangeName = "Source"

Range(TargetRangeName).Clear

Range(TargetRangeName).Formula = Range(SourceRangeName).Formula

End Sub

公式在范围内被复制，但相对引用没有正确修改，得到如图所示的结果。

相对引用从第 3 行开始，而不是从范围的第一行开始Target。

一些不适用于我的解决方案：

• 复制和粘贴会产生正确的结果，但是这个例程要重复数千次，因此性能至关重要，使用赋值的性能提升是 10 倍
• 更改公式以使参考位于正确的位置，这是不适用的，因为我正在处理一个大型、复杂和旧的文件，其中更改数百个公式是不可行的，并且Target可能会更改相对于Source

标签： excelvba

Answer 1

您可以通过设置.FormulaR1C1属性而不是属性来执行此操作.Formula。像这样：

Public Sub ClientCode()
    Dim srcRng As Range
    Dim tarRng As Range

    Set srcRng = Range("Source")
    Set tarRng = Range("Target")

    tarRng.Formula2R1C1 = srcRng(1).Formula2R1C1
End Sub

.FormulaR1C1维护相对引用