Excel/VBA/最終行・最終列を取得

最終行を取得 †

セル【A1】から始まるテーブルの最終行を取得するパターン。

途中で空白行が無い場合 †

Dim rowEnd As Long
rowEnd = Range("A1").End(xlDown).Row

途中で空白行がある場合 †

Dim rowEnd As Long
rowEnd = Range("A" & Rows.Count).End(xlUp).Row

最終列を取得 †

セル【A1】から始まるテーブルの最終列を取得するパターン。

途中で空白列が無い場合 †

Dim colEnd As Long
colEnd = Cells(1, 1).End(xlToRight).Column

途中で空白列がある場合 †

Dim colEnd As Long
colEnd = Cells(1, Columns.Count).End(xlToLeft).Column