Sub 二行目から最終行まで選択する() '最終行を取得する 最終行 = Cells(Rows.Count, "A").End(xlUp).Row '=6 '2行目から最終行まで選択する Rows("2:" & 最終行).Select 'Rows("2:6" ).Select と同じこと End Sub