Excelで複数の空列を迅速に削除するにはどうすればよいですか？
Webページ、CSV、テキストなどからMicrosoft Excelにデータをインポートするとき、多くの空列が含まれることがあります。それぞれの空列を一つずつ削除するのは時間がかかるため、簡単な方法を探している人も多いでしょう。この記事では、複数の空列を迅速に削除するためのいくつかの便利なヒントを集めました。
選択した範囲／現在のシート／全体のワークブック内でKutools for Excelを使って複数の空列を削除する
数式を使用してワークシート内の複数の空列を削除する
Excelでは、列が空白かどうかを識別するために数式を適用し、その後「並べ替え」機能を使用してすべての空白列をまとめて並べ替え、一括で削除することができます。以下の手順で行ってください：
1. データ範囲の一番上に新しい行を追加します。スクリーンショットをご覧ください：
2. 次に、以下の数式をセルA1に入力し、他のセルにもこの数式を適用するために右側にフィルハンドルをドラッグします。列が空白の場合、「TRUE」が表示され、それ以外の場合は「FALSE」が表示されます。スクリーンショットをご覧ください：
3. その後、ヘルパー行を含むデータ範囲を選択し、「データ」＞「並べ替え」をクリックします。スクリーンショットをご覧ください：
4. 表示された「並べ替え」ダイアログボックスで、「オプション」ボタンをクリックします。「並べ替えオプション」ダイアログで、「左から右へ並べ替える」オプションを選択します。スクリーンショットをご覧ください：
 |  |  |
5. 「OK」ボタンをクリックして「並べ替え」ダイアログに戻り、「並べ替え対象」ドロップダウンから「行1」を選択し、「ソート基準」セクションから「セルの値」を選択し、「順序」セクションから「最大から最小へ」を選択します。スクリーンショットをご覧ください：
6. これで、すべての空列がデータの左側に並べ替えられます。次に、すべての列を選択し、右クリックして「削除」を選択することで、これらの空白列を一度に削除できます。スクリーンショットをご覧ください：
VBAコードを使用してワークシート内の複数の空列を削除する
VBAマクロを使用したい場合、作業はさらに簡単になります。次のVBAコードが役立つかもしれませんので、以下の手順で行ってください：
1. Excelで「Alt + F11」キーを押すと、「Microsoft Visual Basic for Applications」ウィンドウが開きます。
2. 「挿入」＞「モジュール」をクリックし、次のマクロをモジュールウィンドウに貼り付けます。
VBAコード：選択範囲内の複数の空白列を削除する：
Sub DeleteEmptyColumns()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Columns.Count To 1 Step -1
Set rng = InputRng.Cells(1, i).EntireColumn
If Application.WorksheetFunction.CountA(rng) = 0 Then
rng.Delete
End If
Next
Application.ScreenUpdating = True
End Sub
3. F5キーを押してこのマクロを実行し、ポップアップダイアログで必要な作業範囲を選択します。スクリーンショットをご覧ください：
4. 「OK」をクリックすると、選択範囲内のすべての空列が削除されます。スクリーンショットをご覧ください：
選択した範囲／現在のシート／全体のワークブック内でKutools for Excelを使って複数の空列を削除する
Kutools for Excelの「非表示（表示）されている行や列を削除」ユーティリティを使用すると、複数の空行や空列を一度に簡単に削除できます。
Kutools for Excelをインストール後、以下のように操作してください：
1. 「Kutools」＞「削除」＞「非表示（表示）されている行や列を削除」をクリックします。スクリーンショットをご覧ください：
2. 「非表示（表示）されている行や列を削除」ダイアログボックスで、操作を適用する範囲を「検索対象」ドロップダウンリストから指定します。（「選択した範囲内」を選択した場合、最初に使用したい範囲を選択する必要があります。）そして、「削除タイプ」で「列」をチェックし、「詳細なタイプ」から「空白の列」を選択します。スクリーンショットをご覧ください：
3. 「OK」をクリックすると、選択した範囲から空白の列が削除されます。スクリーンショットをご覧ください：
VBAコードを使用してヘッダー付きの複数の空列を削除する
時々、ワークシート内のヘッダーのみがあるすべての空列を削除したい場合があります。次のVBAコードはそのお手伝いをしますので、以下の手順で行ってください：
1. Excelで「Alt + F11」キーを押すと、「Microsoft Visual Basic for Applications」ウィンドウが開きます。
2. 「挿入」＞「モジュール」をクリックし、次のマクロをモジュールウィンドウに貼り付けます。
VBAコード：ヘッダー付きのすべての空列を削除する
Sub deleteblankcolwithheader()
'updateby Extendoffice
Dim xEndCol As Long
Dim I As Long
Dim xDel As Boolean
On Error Resume Next
xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If xEndCol = 0 Then
MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
Exit Sub
End If
Application.ScreenUpdating = False
For I = xEndCol To 1 Step -1
If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
Columns(I).Delete
xDel = True
End If
Next
If xDel Then
MsgBox "All blank column(s) with only a header row have been deleted.", vbInformation, "Kutools for Excel"
Else
MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
End If
Application.ScreenUpdating = True
End Sub
3. F5キーを押してこのコードを実行すると、ヘッダー付きの空列が削除されることを知らせるプロンプトボックスが表示されます。スクリーンショットをご覧ください：
4. 「OK」ボタンをクリックすると、現在のワークシート内のヘッダーのみがあるすべての空列が一度に削除されます。スクリーンショットをご覧ください：
 | |  |
関連記事：
- Excelで隠し行または隠し列をすべて削除する
- 大量の隠し行や隠し列を持つ大きなワークブックがあり、隠しデータが不要になった場合、それらをすべて削除したいと思うでしょう。どのようにすれば素早く削除できるでしょうか？
- Excelですべての画像やその他のオブジェクトを削除する
- Microsoft Excelからすべての画像を削除したい場合、各画像を選択して一つずつ削除するのは時間がかかります。次のトリックは、すべての画像を削除する作業を軽減するのに役立ちます。
- Excelで背景色に基づいて行を削除する
- 背景色に基づいて行全体を削除するにはどうすればよいでしょうか？この例では、次のスクリーンショットに示すように、青色の背景色で塗りつぶされたセルを持つすべての行を削除する必要があります。この記事では、Excelでこのタスクを達成するためのいくつかのコードを紹介します。
- Googleスプレッドシートで特定の列内の特定のテキストを含むすべての行を削除する
- Googleスプレッドシートにデータ範囲があり、列内のセル値に基づいて行を削除したいとします。例えば、C列に「Complete」というテキストが含まれるすべての行を削除したいとします。この記事では、Googleスプレッドシートでこれを解決する方法について説明します。
最高のオフィス業務効率化ツール
| 🤖 | Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し…… |
| 人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める…… | |
| スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ…… | |
| 高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト…… | |
| 列マネージャー：指定した数の列を追加 ｜列の移動 ｜非表示列の表示/非表示の切替｜ 範囲＆列の比較…… | |
| 注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキスト ライブラリ｜日付ピッカー｜データの統合 ｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）…… | |
| トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数 |
Kutools for ExcelでExcelスキルを強化し、これまでにない効率を体感しましょう。 Kutools for Excelは300以上の高度な機能で生産性向上と保存時間を実現します。最も必要な機能はこちらをクリック...
Office TabでOfficeにタブインターフェースを追加し、作業をもっと簡単に
- Word、Excel、PowerPointでタブによる編集・閲覧を実現。
- 新しいウィンドウを開かず、同じウィンドウの新しいタブで複数のドキュメントを開いたり作成できます。
- 生産性が50%向上し、毎日のマウスクリック数を何百回も削減！
全てのKutoolsアドインを一つのインストーラーで
Kutools for Officeスイートは、Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proをまとめて提供。Officeアプリを横断して働くチームに最適です。
- オールインワンスイート — Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proが含まれます
- 1つのインストーラー・1つのライセンス —— 数分でセットアップ完了（MSI対応）
- 一括管理でより効率的 —— Officeアプリ間で快適な生産性を発揮
- 30日間フル機能お試し —— 登録やクレジットカード不要
- コストパフォーマンス最適 —— 個別購入よりお得