【VBA】指定した範囲の行数、列数を取得する

VBAコード

ここでは例として、
　・シート「sample」のセル「B2」から続く一連の範囲の
　・行数、列数を取得
します。
※行数は3行(見出し行除く)、列数は4列です。

'変数の宣言を必須
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

実行結果

指定した範囲の行数、列数を取得できました。

参考

上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。

●「Rangオブジェクト」の「CurrentRegion」プロパティ

●「Rangeオブジェクト」の「Rows」プロパティ

●「Rangeオブジェクト」の「Count」プロパティ

●「Rangeオブジェクト」の「Columns」プロパティ