VBA Range.Rows.Count给出了意想不到的结果

Question

我有一个包含地址的Range变量 - $ 2：$ 2，$ 4：$ 205，$ 214：$ 214 - （3组行）。

我想得到该范围内所有行的计数。

但是，range.Count给出了所有单元格的数量（50,000~）和range.Rows.Count只返回1 - 第一组中所有行的计数。如何获取所有行的计数

谢谢

Answer 1

Dim rowCount As Long
Dim ctr As Long

'You could use your range variable in place of Selection below
For ctr = 1 To Selection.Areas.Count
    rowCount = rowCount + Selection.Areas(ctr).Rows.Count
Next
Debug.Print rowCount