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

指定した範囲の
　・行数
　・列数
を取得できます！

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

「Rangオブジェクト」の「CurrentRegion」プロパティにより、セル「B2」から続く一連の範囲を示す「Rangeオブジェクト」を取得します(10、13行目)。

一連の範囲を示す「Rangeオブジェクト」の「Rows」プロパティにより、指定した範囲の行を示す「Rangeオブジェクト」を取得します(10行目)。

指定した範囲の行を示す「Rangeオブジェクト」の「Count」プロパティにより、行数を取得します(10行目)。
※取得した行数から「-1」をすることで、見出し行を除いています。

一連の範囲を示す「Rangeオブジェクト」の「Columns」プロパティにより、指定した範囲の列を示す「Rangeオブジェクト」を取得します(13行目)。

指定した範囲の列を示す「Rangeオブジェクト」の「Count」プロパティにより、列数を取得します(13行目)。