VBATips

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

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

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

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

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

vba-get-table currentregion

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し、短い名前で利用する【マクロ初級者必読】

関連記事

コメント

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