Counting Cells

[Jane]

Could anybody let me know how to make a function in Excel to count the number of cells with only value in a column excluding blank cells.

[Jacob Hilderbrand]

Use the CountA function.


=CountA(A:A)

[austenr]

Try this:


Sub CountNonBlankCells() 'Returns a count of non-blank cells in a selection
Dim myCount As Integer 'using the CountA ws function (all non-blanks)
myCount = Application.CountA(Selection)
MsgBox "The number of non-blank cell(s) in this selection is : "_
& myCount, vbInformation, "Count Cells"
End Sub

[Jane]

Thanks everybody who has tried to help me to solve the question "counting cells"

Thanks!

[Jacob Hilderbrand]

Glad to help :beerchug:

Take Care