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 アシスタント: データ分析を革命化する: インテリジェント実行 | コード生成 | カスタム数式の作成 | データを分析しグラフを生成 | 拡張機能を呼び出す… |
人気の機能: 重複を見つけてハイライトまたはマーキング | 空白行を削除 | データを失わずに列またはセルを統合 | 丸める ... | |
スーパーLOOKUP: 複数条件のVLookup | 複数値のVLookup | 複数シートの検索 | ファジーマッチ .... | |
高度なドロップダウンリスト: ドロップダウンリストを迅速に作成 | 依存ドロップダウンリスト | マルチセレクトドロップダウンリスト .... | |
列管理: 特定の数の列を追加 | 列を移動 | 非表示列の可視ステータスを切り替え | 範囲と列を比較 ... | |
注目の機能: グリッドフォーカス | デザインビュー | 強化された数式バー | ワークブック & ワークシート管理 | オートテキスト ライブラリ (Auto Text) | 日付ピッカー | データの統合 | セルの暗号化/復号化 | リストで電子メールを送信 | スーパーフィルター | 特殊フィルタ (太字/斜体/取り消し線をフィルタリング...) ... | |
トップ15のツールセット: 12 のテキストツール (テキストの追加, 特定の文字を削除, ...) | 50以上 のグラフ の種類 (ガントチャート, ...) | 40以上の実用的な 数式 (誕生日に基づいて年齢を計算する, ...) | 19 の挿入ツール (QRコードの挿入, パスから画像を挿入, ...) | 12 の変換ツール (単語に変換する, 通貨変換, ...) | 7 の統合 & セルの分割ツール (高度な行のマージ, セルの分割, ...) | ...さらに多く |
Kutools for ExcelでExcelスキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、300以上の高度な機能を提供し、生産性を向上させ、保存時間を節約します。 最も必要な機能を入手するにはここをクリック...
Office TabはOfficeにタブインターフェイスをもたらし、作業を非常に簡単にします
- Word、Excel、PowerPoint、Publisher、Access、Visio、Projectでタブ付きの編集と読み取りを有効にします。
- 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
- 生産性を50%向上させ、毎日数百回のマウスクリックを減らします!