途中に空白行があっても、最終行を選択する。取得する。

2017/05/17


途中に空白行があっても、最終行を選択する。
Dim maxrow
With ActiveSheet.UsedRange
maxrow = .Rows(.Rows.Count).Select
End With

スポンサーリンク

----- べんりあつめ。-----

途中に空白行があっても、最終行を取得する。
Dim maxrow
With ActiveSheet.UsedRange
maxrow = .Rows(.Rows.Count).Row
End With

スポンサーリンク

スマホのみ下に表示