[ Excel-VBA ] 使用セルの最終行と最終列を取得する ( UsedRange.Rows.Count )

Pocket

エクセルのシートで使用されているセルの最終行と最終列を取得するサンプルスクリプトを掲載しています。

スポンサーリンク


サンプルデータ

ここでは、下図のサンプルデータを使用します。赤枠で囲まれた セル F11 が取得する最終行、最終列になります。

サンプルデータ

サンプルデータ

最終行、最終列を取得する VBA サンプル

UsedRange.Rows.Count でセルの最終行を、UsedRange.Columns.Count で使用セルの最終列を取得しています。詳細は、サンプル内のコメントを参照ください。

    Dim rowCount As Long     ' 行
    Dim colCount As Integer  ' 列
    
    ' 何か記述されている最終行を取得する
    ' コメントや式のみのセルなども対象となる
    ' 画像やボタンなどは対象外となる
    rowCount = Worksheets("Sheet1").UsedRange.Rows.Count
    
    ' 何か記述されている最終列を取得する
    colCount = Worksheets("Sheet1").UsedRange.Columns.Count
    
    ' 取得した最終行と最終列を表示する
    MsgBox ("最終行:" & rowCount & " 最終列:" & colCount)

結果

サンプルスクリプト動作結果

サンプルスクリプトの動作結果

スポンサーリンク

Pocket

Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>