エクセルVBA （終点自動）A列を選択するマクロ

エクセルVBAを使ってA列を選択する方法は次の通りです。

終点は自動。始点はA1セルとします。11の例をあげますが、どれも同じ結果になります。

Range（始点, 終点）パターン

Range(Cells(1, "A"), Cells(Cells(Rows.Count, "A").End(xlUp).Row, "A")).Select

Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)).Select

Range(Cells(1, "A1"), Cells(Rows.Count, "A1").End(xlUp)).Select

Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Select

Range(Range("A1"), Cells(Rows.Count, "A1").End(xlUp)).Select

Range(Range("A1"), Cells(Rows.Count, 1).End(xlUp)).Select

Range(Range("A1"), Range("A" & Rows.Count).End(xlUp)).Select

Range(Cells(1, "A1"), Range("A" & Rows.Count).End(xlUp)).Select

Range（"始点：終点"）パターン

Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row).Select

Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Select

Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Select

結果はこうなります。終点はA列の最終行が自動的に選択されます。

終点をB列に合わせて選択したいときの記述は次の通りです。始点はA1セルとします。次の7つの例は、どれも同じ結果になります。

Range（始点, 終点）パターン

Range(Cells(1, "A"), Cells(Cells(Rows.Count, "B").End(xlUp).Row, "A")).Select

Range(Cells(1, 1), Cells(Cells(Rows.Count, 2).End(xlUp).Row, 1)).Select

Range(Range("A1"), Range("A" & Cells(Rows.Count, "B").End(xlUp).Row)).Select

Range(Range("A1"), Range("A" & Range("B" & Rows.Count).End(xlUp).Row)).Select

Range（"始点：終点"）パターン

Range("A1:A" & Cells(Rows.Count, "B").End(xlUp).Row).Select

Range("A1:A" & Cells(Rows.Count, 2).End(xlUp).Row).Select

Range("A1:A" & Range("B" & Rows.Count).End(xlUp).Row).Select

結果はこうなります。B列の最終行に合わせて選択されます。

 

終点を表の最大行に合わせたい場合は、つぎのとおりです。始点はA1セルとします。

Range("A1:A" & Cells.CurrentRegion.Rows.Count).Select

結果はこうなります。F8に入力がありますのでA列の８行目までが自動選択されます。

おすすめ記事