列の途中に、空白行が入っている場合、最終行を取得したい場合どうすればいいでしょうか？

例えば、次のようなシートで、４行目を取得したいとします。

いったん、まずは次のコードを実行します。

実行結果

１０行目が取得されました。今回は、４行目を取得したいので、cells(rows.count,2).end(xlup).rowではダメなようです。

そこで、次のコードを使います。

実行結果

４行目が取得できました。

cells(1,2)から、xldown(ctrl + ↓と同じ)の操作を実行したことによって、空白行を上から探すことが出来ました。

【途中空白ありパターン】VBA最終行の取得