エクセルVBA (終点自動)A列を選択するマクロ: 虹と雪、そして桜

免責事項と著作権

  • 本ブログについて
  • ブログ内記事検索

アクセスマップ

著者プロフィール



㊙アメリカ㊙成功する方法


« おススメ!明星チャルメラ バリカタ  | トップページ | エクセルVBA 【終点自動】A~E列を選択するマクロ »

2020/10/13

エクセル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列の最終行が自動的に選択されます。

1_20201012234001

 

終点を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列の最終行に合わせて選択されます。

2 

 

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

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

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

3

おすすめ記事

 

« おススメ!明星チャルメラ バリカタ  | トップページ | エクセルVBA 【終点自動】A~E列を選択するマクロ »

コメント

コメントを書く

コメントは記事投稿者が公開するまで表示されません。

(ウェブ上には掲載しません)

« おススメ!明星チャルメラ バリカタ  | トップページ | エクセルVBA 【終点自動】A~E列を選択するマクロ »

2021年6月
    1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30