次の方法で共有


Application.Rows プロパティ (Excel)

作業中のワークシートのすべての行を表す Range オブジェクトを返します。 作業中の文書がワークシートでない場合、Rows プロパティは無効になります。 読み取り専用の Range オブジェクト。

構文

expressionApplication オブジェクトを 表す変数。

注釈

このプロパティをオブジェクト修飾子を指定せずに使用した場合、ActiveSheet.Rows と同様の結果になります。

複数の選択範囲の Range オブジェクトに適用すると、このプロパティは範囲の最初の領域からのみ行を返します。 たとえば、 Range オブジェクトに 2 つの領域 (A1:B2 と C3:D4) がある場合、Selection.Rows.Count は 4 ではなく 2 を返します。

複数のセル範囲を選択している可能性があるときは、このプロパティを使用する前に Areas.Count を実行し、範囲に複数の領域が含まれているかどうかを確認します。 複数の領域が含まれている場合は、3 番目の使用例のようにセル範囲の領域ごとにループします。

次の使用例は、シート 1 の行 3 を削除します。

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

次の使用例は、目的の行のセル 1 の値が前の行のセル 1 の値と同じ場合に、ワークシート 1 のアクティブ セル領域内の行を削除します。

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 の選択範囲の行数を表示します。 複数の領域が選択されている場合は、領域ごとにループします。

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 のサポートおよびフィードバックを参照してください。