Переменная цикла внутри функции формулы

Question

Я зацикливаюсь на столбце, в котором мне нужно добавить один к переменной цикла в FORMULA
Моя проблема заключается в том, как написать правильную FORMULA для перехода к следующей ячейке с помощью переменной lrow

Прикреплен фрагмент моего кода

 Dim LastRow As Long
 For lrow = 1 To 20

 If Worksheets("cars").Range("P" & lrow) = "1" Then 

 Worksheets("cars").Range("a" & lrow).Formula = _
               "=RIGHT(h & lrow ,FIND(""."",h & lrow))"

Как объединить переменную lrow в формуле? Я также пытался "=RIGHT("h" & lrow ,FIND(""."","h" & lrow))"

Answer 1

Вы можете построить строку, вставив переменные, где это необходимо.

Worksheets("cars").Range("a" & lrow).Formula = _
               "=RIGHT(h" & lrow & ",FIND(""."",h" & lrow & "))"

Обратите внимание на дополнительные кавычки и (амперсанды), которые я поместил, чтобы представить переменную из остальной части строки.

Answer 2

Иногда использование Replace() позволяет избежать большого количества конкатенации и балансировки цитат:

Worksheets("cars").Cells(lrow, "A").Formula = _
       Replace("=RIGHT(H<rw>,FIND(""."",H<rw>))", "<rw>", lrow)