在VBA中自动填充

Question

I am new to VBA and kindly need your help.

I have code that uses an if statement and would love to be able to autofill. Here is the code below.

Any help will be much appreciated.

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

The formula that you are looking for in cell AG3 is =IF(AND(D3="FED_ASS_DM",E3="NOCHG"),999,"No Value") which is what your VBA code is doing. Now all you have to do is find the last row and enter the formula in the entire range in 1 go.

Is this what you are trying?

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