VBA脚本424：Selection.row.count上需要的对象

Question

Option Explicit

Public Sub Testrun()

Dim l As Long

l = Selection.Row.Count
ActiveCell.Value = l


End Sub

此代码显示424错误：VBA中需要对象。请帮忙。

Answer 1

使用行代替行

Option Explicit

Public Sub Testrun()

Dim l As Long

l = Selection.Rows.Count

ActiveCell.Value = l


End Sub