Формула вида R1C1 с динамическим числом слагаемых

[mamay555]

Здравствуйте!

Подскажите, пожалуйста, как решить приведенную ниже задачу.

В столбце с данными прописать формулу вида:

Range("AA2:AA200").FormulaR1C1 = "=RC [-1]-RC[-12]-RC[-24]-RC[-36]-RC[-48]"

При этом есть переменная g, в которой лежит число типа integer.

Надо изменить формулу так, чтобы число слагаемых с шагом 12, т.е. "RC[-12]-RC[-24]-RC[-36]" равнялось g.

Помогите, пожалуйста, уже всю голову себе сломал!

Нашел одно из возможных решений:

perem = "RC[-1]"

For i = 1 To 5
perem = perem & " - RC[-" & i * 12 & "]"
Next i

Range(Cells(botrow(4) + 1, colmn), Cells(botrow(1), colmn)).FormulaR1C1 = "=" & perem & ""

Надеюсь, что существует, что-то более изящное)

[Казанский]

Да нормальное решение! Если хочется извратиться, то

...FormulaR1C1 = "=RC[-1]-RC[" & Join(Evaluate("TRANSPOSE(ROW(1:" & g & ")*-12)"), "]-RC[") & "]"

Стиль ссылок приложения должен быть А1.
Для любого стиля ссылок

...FormulaR1C1 = "=RC[-1]-RC[" & Join(Evaluate(Application.ConvertFormula("TRANSPOSE(ROW(1:" & g & ")*-12)", xlA1, Application.ReferenceStyle)), "]-RC[") & "]"
'или
...FormulaR1C1 = "=RC[-1]-RC[" & Join(Evaluate("TRANSPOSE(ROW(" & IIf(Application.ReferenceStyle = xlA1, "1:", "R1:R") & g & ")*-12)"), "]-RC[") & "]"