CurrentRegion表の高さ、幅を取得する【Rows.Height】【Columns.Width】【ExcelVBA】

指定したセル範囲のアクティブセル領域(表範囲)を取得するのは、
CurrentRegionプロパティですぐに取得が出来ます。

抽出した表から
・高さを取得したい場合はRows.Heightで取得する事が可能です。
・幅を取得したい場合はColumns.Widthで取得する事が可能です。

表の行数、列数を取得するサンプルコード
注意点
関連記事

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

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

Public Sub sample()
    
    '■セルA1を含む表の高さ取得する
    Debug.Print Range("A1").CurrentRegion.Rows.Height       '131.25

    '■セルA1を含む表の幅を取得する
    Debug.Print Range("A1").CurrentRegion.Columns.Width     '180
    
End Sub