ExcelVBAでデータの末尾を取得

Excelの最終行を取得

Sub S_LastRow
   
    Dim lastR as Long
    lastR = Rows.Count

End Sub

Excelの最終列を取得

Sub S_LastColumn
   
    Dim lastC as Long
    lastC = Columns.Count

End Sub

A列のデータ:行方向の末尾を取得

Sub S_LastDataR
   
    Dim lastR as Long
    lastR = Cells(Rows.Count,1).End(xlUp).Row

End Sub

1行目のデータ:列方向の末尾を取得

Sub S_LastDataC
   
    Dim lastC as Long
    lastC = Cells(1,Columns.Count).End(xlToLeft).Column

End Sub