Question

In excel using vba how do I programatically take the average of a column, excluding empty fields and the values equal to “3”.

I have a column with a header “isCompleted” where the value can be 0 (no) or 1 (yes) or 3 (not relevant)

to see how many have been completed I’d take the average of only the 0 and 1 scores. How do I do that programatically?

Answer 1

xl03

With Application.WorksheetFunction
MsgBox .SumIf(Range("A:A"), "<3") / .CountIf(Range("A:A"), "<3")
End With

or, assuming you have xl07 or higher

I think you want

MsgBox Application.WorksheetFunction.AverageIfs(Range("A:A"), Range("A:A"), "<3")

'or perhaps
MsgBox Application.WorksheetFunction.AverageIfs(Range("A:A"), Range("A:A"), "<=1")

to average the 0 and 1 values