在VBA中，你可以使用以下方法来计算Excel工作表中的行数：
选中区域并计算行数
打开Excel，选中你想要计算行数的区域。
按下 `Alt + F11` 打开VBA编辑器。
在VBA编辑器中，插入一个新模块（右击工作表名称 -> 插入 -> 模块）。
在新模块中输入以下代码：
```vba
Sub 计算选中区域的行数()
Dim rng As Range
Set rng = Selection
MsgBox "选中区域的行数为: " & rng.Rows.Count
End Sub
```
运行该宏（按F5），将会弹出一个消息框显示选中区域的行数。
计算整个工作表的行数
按下 `Alt + F11` 打开VBA编辑器。
在VBA编辑器中，插入一个新模块（右击工作表名称 -> 插入 -> 模块）。
在新模块中输入以下代码：
```vba
Sub 计算工作表的行数()
Dim ws As Worksheet
Set ws = ActiveSheet
MsgBox "工作表的行数为: " & ws.Rows.Count
End Sub
```
运行该宏（按F5），将会弹出一个消息框显示工作表的行数。
计算已用区域的行数
按下 `Alt + F11` 打开VBA编辑器。
在VBA编辑器中，插入一个新模块（右击工作表名称 -> 插入 -> 模块）。
在新模块中输入以下代码：
```vba
Sub 计算已用区域的行数()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim rng As Range
Set rng = ws.UsedRange
MsgBox "已用区域的行数为: " & rng.Rows.Count
End Sub
```
运行该宏（按F5），将会弹出一个消息框显示已用区域的行数。
这些方法可以帮助你快速获取Excel工作表中的行数，从而提高工作效率。