Range.EntireRow 属性 (Excel)
返回一个 Range 对象,该对象代表包含指定区域的整个行 (或) 行。 此为只读属性。
语法
表达式。EntireRow
expression 一个表示 Range 对象的变量。
示例
此示例对包含活动单元格的行中的第一个单元格赋值。 本示例必须在工作表上运行。
ActiveCell.EntireRow.Cells(1, 1).Value = 5
此示例将对工作表上的所有行(包含隐藏的行)进行排序。
Sub SortAll()
'Turn off screen updating, and define your variables.
Application.ScreenUpdating = False
Dim lngLastRow As Long, lngRow As Long
Dim rngHidden As Range
'Determine the number of rows in your sheet, and add the header row to the hidden range variable.
lngLastRow = Cells(Rows.Count, 1).End(xlUp).Row
Set rngHidden = Rows(1)
'For each row in the list, if the row is hidden add that row to the hidden range variable.
For lngRow = 1 To lngLastRow
If Rows(lngRow).Hidden = True Then
Set rngHidden = Union(rngHidden, Rows(lngRow))
End If
Next lngRow
'Unhide everything in the hidden range variable.
rngHidden.EntireRow.Hidden = False
'Perform the sort on all the data.
Range("A1").CurrentRegion.Sort _
key1:=Range("A2"), _
order1:=xlAscending, _
header:=xlYes
'Re-hide the rows that were originally hidden, but unhide the header.
rngHidden.EntireRow.Hidden = True
Rows(1).Hidden = False
'Turn screen updating back on.
Set rngHidden = Nothing
Application.ScreenUpdating = True
End Sub
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。