この記事では、Excelで空白の列を削除する方法を、効果的で簡単な3つの方法で紹介します。

ワークブックダウンロード

練習用ワークブックは、こちらからダウンロードできます。

Excelで空白の列を削除する3つの簡単な方法

ここでは、Excelの編集ツールを使用する方法、数式を使用する方法、VBAコードを実装する方法の3つで、Excelの空白列を削除する方法を学びます。

1.エクセル編集ツールで

ステップ1． データセットを選択します。

ステップ2． 次のページへ ホーム -> 検索＆選択 -> スペシャルへ .

ステップ3． より スペシャルへ ポップアップウィンドウで ブランク をクリックします。 よっしゃー .

ステップ4． データセット内の空のセルだけが選択されます。 マウスを右クリックし、ポップアップオプションリストの中から 削除 .

ステップ5． 次に、ポップアップから 削除 ボックス、ピック セルを左に移動する をクリックします。 OKです。

これにより、データセットからすべての空白の列が削除されます。

続きを読む Excelの未使用の列を削除する方法

2.数式を使う場合

を活用することができます。 COUNTA() Excelで空白の列を削除するための公式。 COUNTA() は、まずExcelのデータセットの空白列と非空白列を識別し、そこから空白列を簡単に選択・削除することができます。

これもExcelで空白列を削除する効率的な方法です。 その方法を学んでいきましょう。

ステップ1． 最初の行のヘッダーを右クリックして、データセットの真上に空の行を挿入します。 インサート を選択すると、データセット全体の上に新しい行が挿入されます。

ステップ2． ワークシートの一番左のセルに、次の数式を書き込んでください。

=COUNTA(A2:A1048576)=0

これです。

A2 はデータセットの最初のセルを表す。

A1048576 はExcelの行最大値（2007-2019）を表します。

ステップ3． プレス 入力 と表示されます。 真 は、そのカラムが空であれば 偽 列全体に少なくとも1つの空でないセルがある場合。

ステップ4． をドラッグして、他の列にも数式を適用します。 フィルハンドル .

ステップ5． では、次に進みます。 ホーム -> ソート＆フィルター -> カスタムソート .

ステップ6． ポップアップから ソート をクリックします。 オプション ボタンをクリックします。 左から順に並べ替え から ソートオプション をクリックすると、ポップアップウィンドウが表示されます。 よっしゃー .

ステップ7． の横のドロップダウン・ボックスをクリックします。 並び替え ラベルをクリックし、そこからオプションを選択します。 1列目 .

ステップ8． の下にあるドロップダウンボックスをクリックします。 並べ替え のラベルを貼り、オプションを選択します。 セルバリュー そこから

ステップ9． の下にあるドロップダウンボックスをクリックします。 ご注文 のラベルを貼り、オプションを選択します。 最大から最小まで . クリック よっしゃー .

すべての空白の列をワークシートの左側に移動します。

ステップ10． 空欄のデータセット全体を選択し、右クリックで 削除 .

ステップ11． ポップアップから 削除 を選んでください。 コラム全体 をクリックします。 よっしゃー .

これにより、データセットからすべての空白の列が削除されます。

類似の読み物。

• Excelで複数の列を削除する方法
• エクセルで重複した列を削除する（6つの方法）
• エクセルで余分な列を削除する方法（7つの方法）
• Excelで数式に影響を与えずに列を削除する（2つの方法）

3.VBAコードを使用する場合

Excelで空白の列を削除する最も安全な方法は、VBAコードを実装することです。 これは、完全に空の列のみを削除します。 どの列にも1つのセルの値が含まれている場合、どのセルが空の文字列を返しても、その列全体は完全にそのままになります。

以下は、Excelで空白の列を削除する自動化された方法です。

ステップ1． プレス Alt + F11 キーボードから、またはタブで デベロッパー -> ビジュアルベーシック をクリックすると、Visual Basic Editorが表示されます。

ステップ2． メニューバーから インサート -> モジュール .

ステップ3． 以下のコードをコピーして、コードウィンドウに貼り付けてください。

 Public Sub DeleteBlankColumns() Dim SrcRange As Range Dim EntrColumn As Range On Error Resume Next Set SrcRange = Application.InputBox( _ "Select a range:", "Delete Blank Columns", _ Application.Selection.Address, Type:=8) If Not (SrcRange Is Nothing) Then Application.ScreenUpdating = False For i = SrcRange.Columns.Count To 1 Step -1 Set EntrColumn = SrcRange.Cells(1, i).EntrColumn IfApplication.WorksheetFunction.CountA(EntrColumn) = 0 Then EntrColumn.Delete End If Next Application.ScreenUpdating = True End If End Sub 

ステップ4． プレス F5 をキーボードで入力するか、メニューバーから 実行 -> Run Sub/UserForm をクリックすることもできます。 再生アイコン をクリックすると、マクロが実行されます。

ステップ5． ポップアップダイアログボックスから、目的のワークシートに切り替えて、目的の範囲を選択し よっしゃー .

これにより、データシートからすべての空白列が削除されます。

結論

この記事では、Excelで空白の列を削除する方法の3つの簡単な方法について説明しました。 Excelの編集ツールを使用して空白の列を削除する方法、空白の列を削除する数式を適用する方法、そしてExcelで空白の列を削除するVBAコードを実装した方法を示しました。