.Address(相对参考)

Question

我需要帮助创建一个公式，它将自动和一个列，然后在相邻的两个列之间复制该公式。每个月行的数量将是不同的，所以我需要它是动态的。我使用的代码现在返回一个绝对引用，而我需要它是相对的。

现行法典：

Range("G1").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Delete
ActiveCell.Offset(-1).Select

'NEED TO MAKE FORMULA RELATIVE
ActiveCell.FormulaR1C1 = "=SUM(" & ActiveCell.Offset(-1).Address(ReferenceStyle:=xlR1C1) & ":" & ActiveCell.Offset(-1).End(xlUp).Address(ReferenceStyle:=xlR1C1) & ")"
Selection.Copy

结果：=SUM($G$1:$G$156)

我只需要删除这里的绝对引用

将代码更改为：ActiveCell.FormulaR1C1 = "=SUM(" & ActiveCell.Offset(-1).Address(0, 0, ReferenceStyle:=xlR1C1) & ":" & ActiveCell.Offset(-1).End(xlUp).Address(0, 0, ReferenceStyle:=xlR1C1) & ")""将返回公式："=SUM(M157:M312)

在用(false, false,和(RowAbsolute:=False, ColumnAbsolute:=False,替换(false, false,和(RowAbsolute:=False, ColumnAbsolute:=False,时，结果相同

Answer 1

试试这个：

ActiveCell.Formula = "=SUM(" & ActiveCell.Offset(-1).Address(False, False) & ":" & ActiveCell.Offset(-1).End(xlUp).Address(False, False) & ")"