サイトについて      連絡先   検索

VBA 列を選択する

はじめに

Excel VBA マクロの列を選択する方法を紹介します。

Columns.Select メソッドまたは Range.Select メソッドから列を選択できます。

選択している列を取得したり解除できます。

  • 目次
    • 列を選択する
    • 選択されているセルを取得する
    • 列の選択を解除する
    • 列の範囲を選択する
    • 指定したシートの列を選択する

列を選択する

列番号か列名で選択

Columns の引数に列番号または列名を指定すると、その列を選択できます。

列「A」を選択するにはColumns(1).SelectまたはColumns("A").Selectを入力します。


Columns(1).Select   ' A 列
Columns("A").Select ' A 列
Columns(3).Select   ' C 列
1

セル名で選択

Range の引数にセル名を指定すると、そのセルを取得できます。EntireColumn からその列を取得できます。

セル「A2」の列を選択するにはRange("A2").EntireColumn.Selectを入力します。


Range("A2").EntireColumn.Select
2

選択されているセルを取得する

選択しているセルを取得するにはSelectionを入力します。

列が選択されていると、その列を取得できます。


Dim c As Range
Set c = Selection
Debug.Print(c.Column)

列の選択を解除する

列の選択を解除する方法はありません。Excel でもそのような操作は存在しません。どこか 1 つのセルを選択します。


Range("A1").Select

列の範囲を選択する

列の範囲を選択

列の範囲「B ~ C」を選択するにはRange("B:C").SelectまたはRange(Columns(2), Columns(3)).Selectを入力します。


Range("B:C").Select                  ' B ~ C 列目を取得
Range(Columns(2), Columns(3)).Select ' B ~ C 列目を取得
Range("D:D").Select                  ' D 列目を取得
4

離れた列を選択

列「A」と「C ~ F」を選択するにはRange("A:A, C:D").Selectまたは のように指定します。


Range("A:A, C:C, E:F").Select
5

またはUnion(Range("A:A"), Range("C:D")).Selectを入力します。

Union を使用すると、取得したセルと別のセルを組み合わせた範囲を取得できます。


Dim r As Range
Set r = Union(Range("A:A"), Range("C:D")) ' A 列と C ~ D 列
Set r = Union(r, Columns(6))              ' A 列と C ~ D 列と F 列
r.Select

指定したシートの列を選択する

アクティブシートの列だけを選択できます。その他のシートに対して行うとエラーが発生します。

シートを指定するには Worksheets の引数にシート名またはインデックスを指定します。

Sheet1 を指定するにはWorksheets("Sheet1")またはWorksheets(1)を入力します。

sheet1

' Sheet1 の列を選択
Worksheets("Sheet1").Activate
Worksheets("Sheet1").Columns(1).Select
Worksheets(1).Activate
Worksheets(1).Columns(1).Select

' Sheet2 の列を選択
Worksheets("Sheet2").Activate
Worksheets("Sheet2").Columns(1).Select
Worksheets(2).Activate
Worksheets(2).Columns(1).Select

Sheet1 に Columns を入力すると、自身のシートの列になります。自身を表すMe.が省略されています。


' どちらも同じコード
Dim r As Range
Set r = Columns(1)
Set r = Me.Columns(1)

標準モジュールに Columns を入力すると、アクティブなシートの列になります。アクティブシートを表すActiveSheet.が省略されています。


' どちらも同じコード
Dim r As Range
Set r = Columns(1)
Set r = ActiveSheet.Columns(1)
  • 目次
    • 列を選択する
    • 選択されているセルを取得する
    • 列の選択を解除する
    • 列の範囲を選択する
    • 指定したシートの列を選択する