解説抜きでサクッとコピペしたい自分向けのページ
「A2からA列最終行まで」
'構文1
Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Select
'構文2
Range(Range("A2"), Cells(Rows.Count, "A").End(xlUp)).Select
'数値を取得
Dim r As long
r = Cells(Rows.Count, 1).End(xlUp).Row
More than 5 years have passed since last update.
Register as a new user and use Qiita more conveniently
- You get articles that match your needs
- You can efficiently read back useful information
- You can use dark theme