在一系列细胞中使用公式

Question

I want to use a formula in a range of cells but I get the formula in that cell and not the results of the formula.

I tried a couple of different ways.

The first script I tried entered the formula all the way down the column until the last row value: -

Dim LastRow As Long
LastRow = Cells(Rows.Count, 5).End(xlUp).Row
Range("DO22:DO" & LastRow).Formula = "IF=COUNTIF(AS22:AU" & LastRow & " ,""=Major Variance"")>0,""Major Variance"",IF(COUNTIF(AS22:AU" & LastRow & " ,""=Minor Variance"")>0,""Minor Variance"",""On Track""))"

This is the other script I tried but this puts the formula only in the first row of the range: -

Dim LastRow As Long  
Dim Rng As Range
Range("DO22:DO" & LastRow).Select
For Each Rng In Range("DO22:DO" & LastRow)
    ActiveCell.Formula = "IF=COUNTIF(AS22:AU" & LastRow & " ,""=Major Variance"")>0,""Major Variance"",IF(COUNTIF(AS22:AU" & LastRow & " ,""=Minor Variance"")>0,""Minor Variance"",""On Track""))"
Next Rng

Edit 1

I have made a change to the code as per someone's answer but I am now getting an run-time error 'Application-defined or object defined error.

It only seems to happen when I add the extra = in front of the If. The error appears on the line

Rng.Formula = "=IF=COUNTIF(AS22:AU" & LastRow & " ,""=Major Variance"")>0,""Major Variance"",IF(COUNTIF(AS22:AU" & LastRow & " ,""=Minor Variance"")>0,""Minor Variance"",""On Track""))"

Here is the edited script: -

Dim Rng As Range
Dim LastRow As Long

LastRow = Cells(Rows.Count, 5).End(xlUp).Row

Range("DO22:DO" & LastRow).Select
For Each Rng In Range("DO22:DO" & LastRow).Cells
    Rng.Formula = "=IF=COUNTIF(AS22:AU" & LastRow & " ,""=Major Variance"")>0,""Major Variance"",IF(COUNTIF(AS22:AU" & LastRow & " ,""=Minor Variance"")>0,""Minor Variance"",""On Track""))"
    Rng.Value = Rng.Value
Next Rng

Answer 1

You are using activecell in the 2nd one so it will only be in the active cell if not selected. so you need to change your loop to be

 For Each Rng In Range("DO22:DO" & LastRow).cells

and then

rng.Formula = "=IF=COUNTIF(AS22:AU" & LastRow & " ,""=Major Variance"")....

then

rng.value=rng.value

also, in the 2nd one, youre not setting LastRow.

Answer 2

You have a malformed IF function and COUNTIF function .

'target formula "=IF(COUNTIF(AS22:AU99, "Major Variance"), "Major Variance", =IF(COUNTIF(AS22:AU99, "Minor Variance"), "Minor Variance", "On Track"))
rng.Formula = "=IF(COUNTIF(AS22:AU" & lastRow & ", ""Major Variance""), ""Major Variance"", " & _
               "IF(COUNTIF(AS22:AU" & lastRow & ", ""Minor Variance""), ""Minor Variance"", " & _
               """On Track""))"
rng = rng.Value

Note that if both Major Variance and Minor Variance exist, then Major Variance takes precedence.

To put this formula into each row and modify the row each time in a loop, the code would look like this.

Dim lastRow As Long, rng As Range

With Worksheets("Sheet1")       '<~~ you should know what worksheet you are on!
    lastRow = .Cells(Rows.Count, 5).End(xlUp).Row
    For Each rng In .Range("DO22:DO" & lastRow)
        rng.Formula = "=IF(COUNTIF(AS" & rng.Row & ":AU" & rng.Row & ", ""Major Variance""), ""Major Variance"", " & _
                       "IF(COUNTIF(AS" & rng.Row & ":AU" & rng.Row & ", ""Minor Variance""), ""Minor Variance"", " & _
                       """On Track""))"
        rng.Value = rng.Value
    Next rng
End With

But you can also put the formula into all of the cells at once like this.

Dim lastRow As Long

With Worksheets("Sheet1")       '<~~ you should know what worksheet you are on!
    lastRow = .Cells(Rows.Count, 5).End(xlUp).Row
    With .Range("DO22:DO" & lastRow)
        .Formula = "=IF(COUNTIF(AS22:AU22, ""Major Variance""), ""Major Variance"", " & _
                       "IF(COUNTIF(AS22:AU22, ""Minor Variance""), ""Minor Variance"", " & _
                       """On Track""))"
        .Value = .Value
    End With
End With