activeCell.FormulaR1C1 =
"=SUM(" & activeCell.Offset(0, -2).Address & "+" & activeCell.Offset(0, -4).Address & "+" & activeCell.Offset(0, -6).Address & "+" & activeCell.Offset(0, -8).Address & "+" & activeCell.Offset(0, -10).Address & ")"
1 ответ
1
Скорее, чем
activeCell.Offset(0, -2).Address
использовать этот,
activeCell.Offset(0, -2).Address(RowAbsolute:= False, ColumnAbsolute:= False)