CurrentRegion表の行数、列数を取得する【Rows.Count】【Columns.Count】【ExcelVBA】

指定したセル範囲のアクティブセル領域(表範囲)を取得するのは、
CurrentRegionプロパティですぐに取得が出来ます。※可変の最終行などを取得する必要はありません。

抽出した表から
・行数を取得したい場合はRows.Countで取得する事が可能です。
・列数を取得したい場合はColumns.Countで取得する事が可能です。

表の行数、列数を取得するサンプルコード

サンプルのシート状態は以下とします。

Public Sub sample()
    
    '■セルB3を含む表の行数を取得する
    Debug.Print Range("B3").CurrentRegion.Rows.Count        '7
    
    '■セルB3を含む表の列数を取得する
    Debug.Print Range("B3").CurrentRegion.Columns.Count     '3
    
End Sub

注意点

ワークシート名は記載していないので、ActiveSheetからデータを取得します。
ワークシート名を変数にSetし、短い名前で利用する【マクロ初級者必読】

関連記事

• 選択しているセルの表範囲を取得する【CurrentRegionプロパティ】【ExcelVBA】
• Rangeを開始行･列/最終行･列に変換する【ExcelVBA】
• 他ブック他シートの「最終行」「最終列」取得処理をパーツ化する
• 配列にセル範囲を格納/動的配列をセルに貼付【ExcelVBA】
• ヘッダー行(見出し)を除いて表範囲を取得する【CurrentRegion応用】【ExcelVBA】