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

Tweet

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)

結果

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

Tweet

Pocket