R1C1 целые числа в формулу

Question

Привет, вы знаете, как установить числа r1 r2 r3 в формулу R1C1, чтобы не было ошибок? благодаря

Sub ReapplyFormula() 

Dim r1, r2, r3 As Integer 

r1 = Range("Range1").row + 1 - Range("EndTable").row 
r2 = Range("Range2").row + 1 - Range("EndTable").row 
r3 = Range("Range3").row - Range("EndTable").row 

For i = Range("Start").Column To Range("End").Column - 1 

Cells(Range("End").row, i).Select 
ActiveCell.FormulaR1C1 = _ 
    "=IF(SUM(R[r1]C:R[-1]C) = SUM(R[r2]C:R[r3]C),0, SUM(R[r1]C:R[-1]C) - SUM(R[r2]C:R[r3]C))" 

Next 


End Sub 

Answer 1

Ваша формула должна быть:

"=IF(SUM(R[" & r1 & "]C:R[-1]C) = _ 
SUM(R[" & r2 & "]C:R[" & r3 & "]C),0, _ 
SUM(R[" & r1 & "]C:R[-1]C) - _ 
SUM(R[" & r2 & "]C:R[" & r3 & "]C))" 

Если вы хотите добавить переменные в String вам нужно, чтобы закончить строку " использование & добавить к строке, то переменная r1 добавить снова & и продолжить String"

Answer 2

Это не похоже на мне, как будто вы хотите родственник номера строк, поэтому ваш код не должен использоваться [] - он выглядел бы так:

Cells(Range("End").row, i).FormulaR1C1 = _ 
    "=IF(SUM(R" & r1 & "C:R[-1]C) = SUM(R" & r2 & "C:R" & r3 & "C),0, SUM(R" & r1 & "C:R[-1]C) - SUM(R" & r2 & "C:R" & r3 & "C))"