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

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

PR

VBAコード

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

セル「B2」から続く一連の範囲
セル「B2」から続く一連の範囲
'変数の宣言を必須
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行目)。

PR

実行結果

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

実行結果
実行結果
PR

参考

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

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


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


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


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

タイトルとURLをコピーしました