UsedRangeで最終行を特定する

 

Sub test()


    ' UsedRangeで最終行を特定する


    With Sheets(1).UsedRange
        Debug.Print .Rows(.Rows.Count).Row
    End With

End Sub

 

 

※ UsedRangeとは、Worksheetオブジェクトに対するプロパティです。使用中の左上端セルから右下端セルの範囲を取得します。

 

実行結果

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

参考記事