解説抜きでサクッとコピペしたい自分向けのページ
「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 3 years have passed since last update.
解説抜きでサクッとコピペしたい自分向けのページ
「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
Register as a new user and use Qiita more conveniently