Вставьте формулу в диапазон ячеек, используя макросы

Question

Я пытаюсь вставить формулу в диапазон ячеек (я хочу, чтобы она вставлялась до последней использованной строки столбца K), но я получаю синтаксическую ошибку

With ThisWorkbook
With .Sheets("Ex")
    lRow4 = .Cells(.Rows.count, 1).End(xlUp).Row
    Set rng4 = .Range("J6:J" & lRow4)
    rng4. FormulaR1C1."=IF(RC[1]='Lease & RPM Charges'!R[-4]C[-6],UPPER(TEXT(REPLACE(REPLACE('Lease & RPM Charges'!R[-4]C[-7],5,0,""-""),8,0,""-""),""DD-mmm-YY"")))"
End With

End With
End Sub 

Answer 1

Обратите внимание, что

.Cells(.Rows.count, 1).End(xlUp).Row

дает вам последнюю использованную строку столбца 1, которая является столбцом A.
Вы можете использовать вместо этого *

.Cells(.Rows.count, "K").End(xlUp).Row

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

---

Также rng4. FormulaR1C1. должно быть rng4.FormulaR1C1 =

With ThisWorkbook.Sheets("Ex")
    lRow4 = .Cells(.Rows.count, "K").End(xlUp).Row
    Set rng4 = .Range("J6:J" & lRow4)
    rng4.FormulaR1C1 = "=IF(RC[1]='Lease & RPM Charges'!R[-4]C[-6],UPPER(TEXT(REPLACE(REPLACE('Lease & RPM Charges'!R[-4]C[-7],5,0,""-""),8,0,""-""),""DD-mmm-YY"")))"
End With