Application.Rows 属性 (Excel)

返回一个 Range 对象，该对象代表活动工作表上的所有行。 如果活动文档不是工作表， 则 Rows 属性将失败。 此为只读 Range 对象。

语法

表达式。行

expression：表示 Application 对象的变量。

备注

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

当应用于作为多重选择的 Range 对象时，此属性仅返回该区域的第一个区域中的行。 例如，如果 Range 对象有两个区域- A1：B2 和 C3：D4，则 Selection.Rows.Count 返回 2，而不是 4。

若要在一个可能包含多个选定区域的区域中使用此属性，请测试 Areas.Count 以确定该区域是否包含多个选择区域。 如果是，请对此区域内的每个子区域进行循环，如第 3 个示例所示。

示例

此示例删除 Sheet1 的第三行。

Worksheets("Sheet1").Rows(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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。