# Counting number of rows with number greater than 1

I have a column in my spreadsheet named "Revision".  A sampling of this column data looks like this:

1
1
2
15
1
1
4
1

I need a total count of the rows where the number in it is greater than 1. Not a sum of the numbers but just a count of rows where the number is greater. So for the above sample my count would be: 3

Can anyone help with a function for this?

Thank you.
###### Who is Participating?

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Senior .Net DeveloperCommented:
Author Commented:
No, I just want to count the rows which are greater than 1.
Older than dirtCommented:
Assuming the data starts in A1 and there are 100 rows

Dim lngIndex As Long
Dim lngCount As Long

For lngIndex = 1 To 100
If Range("A" & lngIndex).Value > 1 Then
lngCount = lngCount + 1
End If
Next
MsgBox lngCount
Older than dirtCommented:
Or better (no need to know how many rows).

Dim lngIndex As Long
Dim lngCount As Long
Dim r As Range

Set r = Range("A1").End(xlDown).Offset(0, 0)

For lngIndex = 1 To r.Row
If Range("A" & lngIndex).Value > 1 Then
lngCount = lngCount + 1
End If
Next
MsgBox lngCount
Senior .Net DeveloperCommented:
=COUNTIF(A2:A30,">1")

Experts Exchange Solution brought to you by