![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
指定した範囲の
・行数
・列数
を取得できます!
VBAコード
ここでは例として、
・シート「sample」のセル「B2」から続く一連の範囲の
・行数、列数を取得
します。
※行数は3行(見出し行除く)、列数は4列です。
![セル「B2」から続く一連の範囲](https://excel-vba.work/wp-content/uploads/2021/10/vba_get_row_column_001.png)
'変数の宣言を必須
Option Explicit
Sub sample()
Dim rowCount As Double
Dim columnCount As Double
'指定した範囲の行数を取得(見出し行を除く)
rowCount = Worksheets("sample").Range("B2").CurrentRegion.Rows.Count - 1
'指定した範囲の列数を取得
columnCount = Worksheets("sample").Range("B2").CurrentRegion.Columns.Count
MsgBox "行数:" & rowCount & vbCrLf & _
"列数:" & columnCount
End Sub
実行結果
指定した範囲の行数、列数を取得できました。
![実行結果](https://excel-vba.work/wp-content/uploads/2021/10/vba_get_row_column_002.png)
参考
上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。
●「Rangオブジェクト」の「CurrentRegion」プロパティ
●「Rangeオブジェクト」の「Rows」プロパティ
●「Rangeオブジェクト」の「Count」プロパティ
●「Rangeオブジェクト」の「Columns」プロパティ