Заполнение столбцов формулой на основе другой ячейки

Question

В настоящее время я отправляю свою формулу в столбец K & L на основе пользовательской формы.Он отправляет формулу на основе ввода столбца G.Я хочу отправить формулу в столбцы K & L, только если в G есть значение.Может ли кто-нибудь мне помочь?

изображение таблицы

    'Sets Columns K & L to Method 6 Formula and looks for last populated row in the Nominal Column (G)
    LastRow = Range("G" & Rows.Count).End(xlUp).Row
    Range("K7").Formula = "=M7+(Q7*(1.04-EXP(0.38*(LN(P7))-0.54)))"
    Range("L7").Formula = "=N7-(Q7*(1.04-EXP(0.38*(LN(P7))-0.54)))"

    If LastRow = 7 Then
    Else
    Range("K7").AutoFill Destination:=Range("K7:K" & LastRow)
    Range("L7").AutoFill Destination:=Range("L7:L" & LastRow)

    End If

Answer 1

Если вы имеете в виду запускать код, только если G имеет хотя бы одну непустую ячейку, вы можете использовать это.Вы можете применять формулы по всему диапазону за один раз.

Sub x()

Dim LastRow As Long

LastRow = Range("G" & Rows.Count).End(xlUp).Row

Range("K7:K" & LastRow).Formula = "=IF(G7="""", """",M7+(Q7*(1.04-EXP(0.38*(LN(P7))-0.54))))"
Range("L7:L" & LastRow).Formula = "=IF(G7="""", """",N7-(Q7*(1.04-EXP(0.38*(LN(P7))-0.54))))"

End Sub