Excelの最終行まで選択するVBA｜入力されている最終行まで選択するVBA

Excelの最終行まで選択するVBAと、入力されている最終行まで選択するVBAを掲載します。

● Excelの最終行まで選択するVBA

次のVBAを実行します。

Private Sub MySelect()
    Range(Cells(1, 2), Cells(Rows.Count, 2)).Select
End Sub

実行結果です。

本当にExcelの最終行まで選択されているか確認するには、次のVBAを実行します。

Private Sub MySelect()
    Range(Cells(1, 2), Cells(Rows.Count, 2)).Select
    Cells(Rows.Count, 2).Activate
End Sub

これで最終行の1048576行まで選択されているのが分かります。

● 入力されている最終行まで選択するVBA

セルの2列目にデータを適当に入力し、次のVBAを実行します。

Private Sub MySelect()
    Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp)).Select
    Cells(Rows.Count, 2).End(xlUp).Activate
End Sub

これで入力されている最終行まで選択されているのが分かります。