対象範囲の終端を参照
対象範囲の一番下の行を選択。
Cells(65536, 1).End(xlUp).Select
今居るセル(例えば "B35" とする)から対象範囲の一番右までを選択。
Range(Range("B35"), Range("B35").End(xlToRight)).Select
対象範囲の一番下の行番号を取得。
Dim lin As Long lin = Cells(65536, 1).End(xlUp).Row
End の引数
xlUp | 上方向 |
xlDown | 下方向 |
xlToRight | 右方向 |
xlToLeft | 左方向 |