Vba: 選択範囲内の行を数える方法

VBA を使用して選択範囲内の行数をカウントするには、次の方法を使用できます。

方法 1: 選択範囲内の行をカウントし、メッセージ ボックスに数を表示する

 SubCountRowsInSelection ()

MsgBox Selection.Rows.Count

End Sub

この特定の例では、現在の選択範囲内の行数をカウントし、その数をメッセージ ボックスに表示します。

方法 2: 選択範囲内の行をカウントし、特定のセルの数を表示する

 SubCountRowsInSelection ()

Range("E1").Value = Selection.Rows.Count

End Sub

この特定の例では、現在の選択範囲内の行数をカウントし、その数をセルE1に表示します。

次の例は、各メソッドを実際に使用する方法を示しています。

例 1: 選択範囲内の行をカウントし、その数をメッセージ ボックスに表示します。

スプレッドシートでセル範囲A1:C17を選択するとします。

次のマクロを作成して、選択範囲内の行数をカウントし、結果をメッセージ ボックスに表示できます。

 SubCountRowsInSelection ()

MsgBox Selection.Rows.Count

End Sub

このマクロを実行すると、次の出力が表示されます。

メッセージ ボックスには、現在の選択範囲に17行があることが示されます。

例 2: 選択範囲内の行をカウントし、特定のセルの数を表示します。

スプレッドシートでセル範囲A4:D9を選択するとします。

次のマクロを作成して、選択範囲内の行数をカウントし、結果をセルE1に表示できます。

 SubCountRowsInSelection ()

Range("E1").Value = Selection.Rows.Count

End Sub

このマクロを実行すると、次の出力が表示されます。

セルE1は、現在の選択範囲に6行があることを示しています。

追加リソース

次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。

VBA を使用してテーブル内の行を数える方法
VBA を使用して特定のテキストが含まれるセルを数える方法
VBAを使用して範囲内の一意の値をカウントする方法