Count Number of appearances of a number in a column.

This function allows for looking number of appearances of a number – in whole column, parts either of a column or progressively (from here and downwards).

Example: Here I have chosen to see how many times the number 3 appears in B2 to B5, which is one time.

Public Function CountAp(find As Variant, lookin As Range)

Dim Count As Integer

For Each cell In lookin

If (cell.Value = find) Then Count = Count + 1 ‘

Next

CountAp = Count

End Function