Application.Rows プロパティ (Excel)Application.Rows property (Excel)

作業中のワークシートのすべての行を表す**Range** オブジェクトを返します。Returns a Range object that represents all the rows on the active worksheet. 作業中の文書がワークシートでない場合、Rows プロパティは無効になります。If the active document isn't a worksheet, the Rows property fails. 読み取り専用の Range オブジェクト。Read-only Range object.

構文Syntax

expression.Rows

expression**Application** オブジェクトを 表す変数。expression A variable that represents an Application object.

注釈Remarks

このプロパティをオブジェクト修飾子を指定せずに使用した場合、ActiveSheet.Rows と同様の結果になります。Using this property without an object qualifier is equivalent to using ActiveSheet.Rows.

複数のセル範囲を含むrangeオブジェクトに対してこのプロパティを設定すると、指定範囲の最初の領域の行だけが返されます。When applied to a Range object that's a multiple selection, this property returns rows from only the first area of the range. たとえば、 Rangeオブジェクトに A1: B2 と C3: D4 という2つの領域がある場合、選択行数は4ではなく2を返します。For example, if the Range object has two areas—A1:B2 and C3:D4, Selection.Rows.Count returns 2, not 4.

複数のセル範囲を選択している可能性があるときは、このプロパティを使用する前に Areas.Count を実行し、範囲に複数の領域が含まれているかどうかを確認します。To use this property on a range that may contain a multiple selection, test Areas.Count to determine whether the range is a multiple selection. 複数の領域が含まれている場合は、3 番目の使用例のようにセル範囲の領域ごとにループします。If it is, loop over each area in the range, as shown in the third example.

Example

次の使用例は、シート 1 の行 3 を削除します。This example deletes row three on Sheet1.

Worksheets("Sheet1").Rows(3).Delete

次の使用例は、目的の行のセル 1 の値が前の行のセル 1 の値と同じ場合に、ワークシート 1 のアクティブ セル領域内の行を削除します。This example deletes rows in the current region on worksheet one where the value of cell one in the row is the same as the value in cell one in the previous row.

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

次の使用例は、シート 1 の選択範囲の行数を表示します。This example displays the number of rows in the selection on Sheet1. 複数の領域が選択されている場合は、領域ごとにループします。If more than one area is selected, the example loops through each area.

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

サポートとフィードバック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.