Count number of rows in col A in vba? simple, right?

Hullo. Given that there are no blank cells in col A, this UNTESTED snippet should work:
HTH

P

In code, something like this would work:

MyCount = Application.CountA(Range("A:A"))

Thanks, both worked like a charm.

Is there a way I could count the number of selected rows? I'm trying to write a macro to emulate the copy/paste column width but rather row height.

basically I want to have the macro count the number of selected rows, update a dynamic array to be the size of the count of rows selected, read the row heights sequentially into the array, then the paste macro will take that array, and update sequentially the rows with the copied row starting at the row you select before running the paste macro.

If someone knows how to quickly write this it would solve the underlying problem, and not just this quick question on how to count the number of selected rows, either way any help is greatly appreciated.

Thanks!

I appreciate the input! I used this on a spreadsheet just now... and since I was getting user selected data... it looked like this...

Dim mainrange as RANGE
Dim X as INTEGER
Dim a as STRING
'------------------------------------
Set mainrange = Selection
x = mainrange.Count
a = "Correcting " + Str(x) + " lines"
Application.Speech.Speak (a)

This way my routine can tell the user how many lines it is currently working on.
~Jerry

Joe4 said:

In code, something like this would work:

MyCount = Application.CountA(Range("A:A"))

Click to expand...

Thank you for including this helpful bit of code. Just as useful today - 3/22/18 as it was when you initially posted your response!