Vba: 範囲から行番号を取得する方法

VBA を使用して Excel の範囲から行番号を取得するには、次のメソッドを使用できます。

方法 1: 特定の範囲から行番号を取得する

 SubGetRowNumber ()

rowNum = Range(" D7 ").Row
MsgBox rowNum

End Sub

この特定のマクロは、セルD7に対応する行番号 (つまり7 )を含むメッセージ ボックスを表示します。

方法 2: 現在選択されている範囲の行番号を取得する

 SubGetRowNumber ()

rowNum = Selection.Row
MsgBox rowNum

End Sub

この特定のマクロは、Excel で現在選択されている範囲に対応する行番号を含むメッセージ ボックスを表示します。

たとえば、このマクロを実行するときにセルB3が選択されている場合、メッセージ ボックスに値3が表示されます。

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

例 1: 特定の範囲から行番号を取得する

セル参照D7の行番号を取得するとします。

これを行うには、次のマクロを作成できます。

 SubGetRowNumber ()

rowNum = Range(" D7 ").Row
MsgBox rowNum

End Sub

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

メッセージ ボックスには、セル参照D7の行番号に対応する値7が表示されます。

例 2: 現在選択されている範囲の行番号を取得する

現在アクティブなセルの行番号を取得したいとします。

これを行うには、次のマクロを作成できます。

 SubGetRowNumber ()

rowNum = Selection.Row
MsgBox rowNum

End Sub

現在セルB3が選択されていると仮定します。

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

メッセージ ボックスには値3 が表示されます。これは、 B3の現在アクティブなセルの行番号に対応します。

追加リソース

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

VBA: 範囲内の行数をカウントする方法
VBA: 表示されている線を別のシートにコピーする方法
VBA: 行を強調表示する方法