Application.Rows 属性

返回一个 Range 对象，它代表活动工作表中的所有行。如果活动文档不是工作表，则 Rows 属性失效。Range 对象，只读。

语法

表达式.Rows

表达式 一个代表 Application 对象的变量。

说明

在不使用对象识别符的情况下使用此属性等效于使用 ActiveSheet.Rows。

该属性在应用于是多个选定区域的 Range 对象时，只从该区域中第一个子区域内返回行。例如，如果 Range 对象有两个子区域：A1:B2 和 C3:D4，则 Selection.Rows.Count 返回 2 而不是 4。若要在一个可能包含多个选定区域的区域中使用此属性，请测试 Areas.Count 以确定该区域是否包含多个选择区域。如果是，请对此区域内的每个子区域进行循环，如第 3 个示例所示。

示例

此示例删除 Sheet1 的第三行。

示例代码
`Worksheets.Item("Sheet1").Rows.Item(3).Delete()`

此示例检查第一张工作表上当前区域中的行，如果某行的第一个单元格值与前一行的第一个单元格的值相等，则删除此行。

示例代码
`For Each rw In Worksheets(1).Cells(1, 1).CurrentRegion.Rows this = rw.Cells(1, 1).Value If this = last Then rw.Delete last = this Next`

此示例显示 Sheet1 选定区域中的行数。如果选择了多个子区域，此示例将对每一个子区域进行循环。

示例代码

示例代码
`Worksheets("Sheet1").Activate areaCount = Selection.Areas.Count If areaCount <= 1 Then MsgBox "The selection contains " & _ Selection.Rows.Count & " rows." Else i = 1 For Each a In Selection.Areas MsgBox "Area " & i & " of the selection contains " & _ a.Rows.Count & " rows." i = i + 1 Next a End If`

Worksheets("Sheet1").Activate
areaCount = Selection.Areas.Count
If areaCount <= 1 Then
    MsgBox "The selection contains " & _
        Selection.Rows.Count & " rows."
Else
    i = 1
    For Each a In Selection.Areas
        MsgBox "Area " & i & " of the selection contains " & _
            a.Rows.Count & " rows."
        i = i + 1
    Next a
End If

请参阅