如何从Excel中的某个单元格开始获取A列中的行数

Question

I would like to get the number of non-empty rows in Column A starting from A3 for example. How do i do it?

What I have tried:

Dim row as integer
row = Sheets("Part2").Cells(Rows.Count, 1).End(xlUp).row

But it calculates all the rows in columnA. Want it to start it from A3.

Need some guidance.

Answer 1

For counting non empty cells starting from A3 use this one:

Dim cntRows As Long
With Sheets("Part2")
    cntRows = WorksheetFunction.CountA(.Range("A:A")) - WorksheetFunction.CountA(.Range("A1:A2"))
End With

also note, that I'm using Long type for cntRows (since max value of Integer is only 32768 )

Answer 2

Range("a3:a" & Rows.Count).SpecialCells(xlCellTypeConstants).Count

我首先使用Range("a3:a" & Rows.Count).SpecialCells(xlCellTypeBlanks).Count尝试了另一个公式Range("a3:a" & Rows.Count).SpecialCells(xlCellTypeBlanks).Count非常确定这是最佳路径，但奇怪的是这给了我一个错误...