【VBA】最終行を取得する

頻出ですが覚えられないので毎回コピペしています。

wb.ws.Cells(Rows.Count, col).End(xlUp).row

wbはワークブックオブジェクト、wsはワークシートオブジェクトです。
col列目の最終行を取得しています。

実際は最終行を取得してその下に書き込むということが多いので、こんなコードでよく使います。

dim lastRow as Long
lastRow = ThisWorkbook.Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).row + 1
ThisWorkbook.Worksheets("Sheet1").Cells(lastRow, 1).Value = "最終行"

1列目の要素が存在する最終行の1行下のセルに書き込むので+1しています。