Range.EntireRow プロパティ (Excel)Range.EntireRow property (Excel)

指定されたセル範囲を含む行全体を表すrangeオブジェクトを返します。Returns a Range object that represents the entire row (or rows) that contains the specified range. 読み取り専用です。Read-only.



expressionRange オブジェクトを表す変数です。expression A variable that represents a Range object.


次の使用例は、アクティブ セルを含む行の先頭セルに値を設定します。This example sets the value of the first cell in the row that contains the active cell. この使用例はワークシートから実行してください。The example must be run from a worksheet.

ActiveCell.EntireRow.Cells(1, 1).Value = 5

この例は、非表示の行を含め、ワークシートのすべての行を並べ替えます。This example sorts all the rows on a worksheet, including hidden rows.

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, _
    '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

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.