计算单元格块中的行数

Question

我想计算一系列单元格中的行，C2：D10。我使用上面的代码来选择它们，但我不知道如何在这个区间内计算行数。

ActiveSheet.Range("C2:D10").Select

Answer 1

以下是一种获取块范围内的行数，列数等的方法：

Set r = Range("C2:D10")

nLastRow = r.Rows.Count + r.Row - 1
MsgBox ("last row " & nLastRow)

nLastColumn = r.Columns.Count + r.Column - 1
MsgBox ("last column " & nLastColumn)

nFirstRow = r.Row
MsgBox ("first row " & nFirstRow)

nFirstColumn = r.Column
MsgBox ("first column " & nFirstColumn)

numrow = r.Rows.Count
MsgBox ("number of rows " & numrow)

numcol = r.Columns.Count
MsgBox ("number of columns " & numcol)

Answer 2

ActiveSheet.Range（ “C2：D10”）。Rows.Count