Автозаполнение в VBA

Question

Я новичок в VBA и мне нужна ваша помощь.

У меня есть код, который использует оператор if, и я хотел бы иметь возможность автозаполнения.Вот код ниже.

Любая помощь будет высоко ценится.

Sub PaymentPriority()
    If Cells(3, 4) = "FED_ASS_DM" And Cells(3, 5) = "NOCHG" Then
        Cells(3, 33) = "999"
    Else
        Cells(3, 33) = "No Value"
    End If
End Sub

Answer 1

Формула, которую вы ищете в ячейке AG3, это =IF(AND(D3="FED_ASS_DM",E3="NOCHG"),999,"No Value"), что делает ваш код VBA.Теперь все, что вам нужно сделать, это найти последнюю строку и ввести формулу во всем диапазоне за 1 ход.

Это то, что вы пытаетесь?

Sub PaymentPriority()
    Dim ws As Worksheet
    Dim sFormula As String

    '~~> Change this to the relevant sheet
    Set ws = Sheet1

    sFormula = "=IF(AND(D3=""FED_ASS_DM"",E3=""NOCHG""),999,""No Value"")"

    With ws
        '~~> Find last row
        lrow = .Range("D" & .Rows.Count).End(xlUp).Row

        '~~> Enter the formula in the entire range in 1 go
        .Range("AG3:AG" & lrow).Formula = sFormula
    End With
End Sub