2行目から最終行まで選択する方法

2024年08月17日

サンプルコード

Sub 最終行までを選択()

    '最終行を取得する
    Dim LastRow As Long
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row

    'セルA2～最終行のB列までを選択する
    Range(Cells(2, "A"), Cells(LastRow, "B")).Select

End Sub
    

実行結果

セルA2～B9までを選択することが出来ました

関連記事

	CSVファイルをエクセルへ読み込みを行う方法
	フォルダを一括で作成する方法
	テキストファイルの読み込み