【Excel VBA】列を削除する方法！複数列や別シート列も対応可！

けど、そんな中で悩むことは、

ですよね。

今回はそんなお悩みを解決する、

についてまとめます！

完成イメージ

列の削除は、Columns(“列:列”).Delete の1行でできます。
今回は
・「商品／数量／区分／単価／金額／担当／備考」の表から、VBAで「区分」「担当」「備考」の列を削除する方法
をゴールにします。
削除すると右側の列が左へ詰まりますが、金額の数式は自動で追従します。

なお、複数列をまとめて削除する方法・ループで消すときの落とし穴・
Delete と ClearContents の違い・別シートの列を削除する方法もあわせてご紹介します。
早速実装して試してみましょう！

上の画像が完成形です。「区分」「担当」「備考」の列が削除され、金額の数式も正しく残っています。

STEP1. 元データを用意する

今回は、「区分」「担当」「備考」の列をVBAで削除していきます。
1行目が見出し、2行目以降がデータです。
金額列（E列）は =B2*D2 の数式にしておきましょう。
数式にしておくと、列を削除したときに参照が自動で調整されるのが確認できます。

下の表をコピーして、Excelのシートに貼り付けるとそのまま試せます。

※ 数式で求める列は空にしています。すでに値が入っている列はそのまま残して試せます。

STEP2. 列を1つ削除する（基本）

いちばん基本の書き方です。

Sub 列を削除する()
    ' C列（区分）を削除する
    Columns("C:C").Delete
End Sub

Columns(“C:C”) は「C列全体」という意味です。
そのまま .Delete を付けると、C列が削除されます。
削除されたぶん、右側の列は1つずつ左へ詰まります。

STEP3. 複数列をまとめて削除する

「担当」と「備考」のように2列まとめて削除したいときは、範囲で指定します。

Sub 複数列を削除する()
    ' E・F列の2列をまとめて削除する
    Columns("E:F").Delete
End Sub

Columns(“E:F”) のように「開始列:終了列」で書くと、その範囲の列がまとめて削除されます。
1列ずつ Delete を2回書くよりも、1行で済みます。

ここが落とし穴！ループで削除すると列がずれる

「C列から3列削除したい」ときに、うっかりループで書くと思った列が消えません。

Sub 失敗する書き方()
    Dim i As Long
    For i = 3 To 5
        Columns(i).Delete    ' × 1回目で列番号がずれる
    Next i
End Sub

C列を削除すると、元のD列がC列に繰り上がります。
そのあと「4列目」を削除すると、元のE列（いまのD列）ではなく、さらに右の列が消えてしまいます。

正しくは、後ろから逆順に削除します。

Sub 正しい書き方()
    Dim i As Long
    For i = 5 To 3 Step -1    ' ○ 後ろから前に向かって削除する
        Columns(i).Delete
    Next i
End Sub

まとめて消せるなら Columns(“C:E”).Delete の1行が一番安全で、列番号のずれも気にしなくていいのでカンタンですね。

STEP4. Delete と ClearContents の違い

「列ごと消したい」のか「中身だけ消したい」のかで、使う命令が変わります。

Sub 削除とクリアの違い()
    ' 列ごと削除する（右の列が左へ詰まる）
    Columns("C:C").Delete

    ' 中身と書式だけ消す（列は残る・右の列は動かない）
    Columns("C:C").ClearContents
End Sub

「列の位置は動かしたくないけれど、中身だけ消したい」ときは ClearContents を使います。
どちらを使うかで表のレイアウトが変わってしまうので、ここはしっかり使い分けましょう。

STEP5. 別シートの列を削除する

ここがいちばんハマりやすいポイントです。
Columns(“B:B”).Delete は「いま操作しているシート」の列に効きます。
別のシートの列を削除したいときは、シートを指定してから実行します。

Sub 別シートの列を削除する()
    ' × これだと「いま開いているシート」の列が消えてしまう
    Columns("B:B").Delete

    ' ○ シート名を指定して削除する
    Worksheets("集計").Columns("B:B").Delete
End Sub

複数のブックを開いているときは、Workbooks(“ファイル名.xlsx”).Worksheets(“集計”) のように
ブックから指定すると確実です。

STEP6. 列を削除すると数式はどうなる？

削除した列を参照していた数式は、#REF! エラーになります。
上の画像の右側がその例です。
「確認用」の列（E列）を参照していた数式が、列を削除したとたん #REF! になりました。

#REF! が出たら、そのセルは手で数式を入れ直す必要があります。
削除する前に、その列を参照している数式がないか確認しておくのが安全ですね。

完成

「商品／数量／単価／金額」の4列になりました。
削除しても金額の数式は正しく計算されたままで、左へ詰まったレイアウトになっています。
思ったとおりに削除できましたか？

うまくいかないときの対処法（トラブルシュート）

実際に試すと、思ったように動かないこともあるかもしれません。
よくあるつまずきと対処法をまとめました。

よくある間違い

列の削除方法の使い分け

エク短流：空の列だけをまとめて削除する

「作業用に追加した列が増えすぎた」というときは、
見出しが空の列を探して、まとめて削除すると一気に片付きます。

Sub 空の列をまとめて削除する()
    Dim ws As Worksheet, lastCol As Long, i As Long
    Set ws = Worksheets("売上データ")

    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

    ' 後ろから前に向かって調べる（削除で列番号がずれないように）
    For i = lastCol To 1 Step -1
        If Trim(ws.Cells(1, i).Value) = "" Then
            ws.Columns(i).Delete
        End If
    Next i

    MsgBox "見出しが空の列を削除しました"
End Sub

後ろから前に向かって調べるのがポイントです。
前から削除すると、削除のたびに列番号がずれて判定が1列飛んでしまいます。
ボタンに割り当てておけば、作業列の整理を1クリックで終えられます。

タカヒロ

削除は「戻せない」のがこわいところです。
実行前に SaveCopyAs で控えを取る、シート名を必ず指定する、この2つを習慣にしておくと安心ですよ。

さいごに

今回は、Excel VBAで列を削除する方法をまとめました。

列の削除は、「列ごと消す」か「中身だけ消す」かを決めるのが最初の一歩ですね。

不要な列を消して表をスッキリさせたいときは、この手順をぜひ試してみてください。

最後までお読みいただきありがとうございました。