Total Cell Count In A Sheet

Rachit · Jun 11th 2007

HI.. can anyone tell me how can i count the number of filled rows and columns (containing both characters and numbers) in a worksheet through a macro??. Please do not tell the individual functions like count or CountA.

**Reafidy** · Jun 11th 2007

Re: Total Cell Count In A Sheet

Theres lots of ways to do this heres one:

Code

Sub HTH()
    Dim RowCnt As Long
    With Worksheets("Sheet1")
        RowCnt = .Range("A1", .Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlConstants).Count
    End With
    MsgBox RowCnt
End Sub

Rachit · Jun 11th 2007

Re: Total Cell Count In A Sheet

Thanks. But you have not given the way to count column.

**Reafidy** · Jun 11th 2007

Re: Total Cell Count In A Sheet

Code

Sub HTH()
    Dim RowCnt As Long
    With Worksheets("Sheet1")
        RowCnt = .Range("A1:B10").SpecialCells(xlConstants).Count
    End With
     MsgBox RowCnt
End Sub

Rachit · Jun 11th 2007

Re: Total Cell Count In A Sheet

Thanks

**royUK** · Jun 11th 2007

Re: Total Cell Count In A Sheet

PM accepting Rules received.

Total Cell Count In A Sheet

Participate now!

Share