VBA 列をクリアする

はじめに

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

Columns.Clear メソッドまたは Range.Clear メソッドで列をクリアできます。

• 列を取得するには「列を取得する」をご覧ください。
• 列を削除するには「列を削除する」をご覧ください。

列をクリアする

列をクリアするメソッドはいくつもあります。クリアする目的にあったものを使用します。

メソッド名	クリアするもの
Clear	全て
ClearComments	コメント
ClearContents	値と数式
ClearFormats	書式 (色や罫線、条件付き書式など)
ClearNotes	コメント
ClearOutline	アウトライン
ClearHyperlinks (Excel 2010 以降)	ハイパーリンク

Columns の引数に列番号や列名を指定すると、その列をクリアできます。

列「B」をクリアするにはColumns(2).ClearまたはColumns("B").Clearを入力します。

Columns(2).Clear
Columns("B").Clear

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

セル「A1」の列をクリアするにはRange("A1").EntireColumn.Clearを入力します。

Range("A1").EntireColumn.Clear

スポンサーリンク

列の範囲をクリアする

列の範囲「B ～ C」をクリアするにはRange("B:C").ClearまたはRange(Columns(2), Columns(3)).Clearを入力します。

Range("B:C").Clear                  ' B ～ C 列をクリア
Range(Columns(2), Columns(3)).Clear ' B ～ C 列をクリア
Range("D:D").Clear                  ' D 列をクリア

すべてのセルをクリアするにはCells.Crearを入力します。

Cells.Clear

指定したシートの列をクリアする

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

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

' Sheet1 の列をクリア
Worksheets("Sheet1").Columns(1).Clear
Worksheets(1).Columns(1).Clear

' Sheet2 の列をクリア
Worksheets("Sheet2").Columns(1).Clear
Worksheets(2).Columns(1).Clear

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)