Excel VBA教程:Rows属性

对于 Application对象,返回代表活动工作表所有行的Range对象。如果活动文档不是工作表,Rows属性无效。对于 Range对象,返回代表指定区域所有行的 Range对象。 对于 Worksheet对象,返回代表指定工作表所有行的 Range对象。Range对象,只读。

说明

有关返回集合中单个成员的详细信息,请参阅返回集合中的对象

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

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

Excel VBA教程:Rows属性·示例

本示例删除 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

上页:Excel VBA教程:RowRange属性 下页:Excel VBA教程:RTD属性

Excel VBA教程:Rows属性

Excel VBA教程:RTD属性 Excel VBA教程:Saved属性
Excel VBA教程:SaveData属性 Excel VBA教程:SaveHiddenData属性
Excel VBA教程:SaveLinkValues属性 Excel VBA教程:SaveNewWebPagesAsWebArchives属性
Excel VBA教程:SavePassword属性 Excel VBA教程:ScaleType属性
Excel VBA教程:SchemeColor属性 Excel VBA教程:ScreenSize属性
Excel VBA教程:ScreenTip属性 Excel VBA教程:ScreenUpdating属性
Excel VBA教程:Script属性 Excel VBA教程:Scripts属性
Excel VBA教程:ScrollArea属性 Excel VBA教程:ScrollColumn属性
Excel VBA教程:ScrollRow属性 Excel VBA教程:SecondaryPlot属性
Excel VBA教程:SecondPlotSize属性 Excel VBA教程:SegmentType属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号