Excelで複数の空の列をすばやく削除するにはどうすればよいですか？

Webページ、CSV、テキストなどのソースからMicrosoft Excelにデータをインポートすると、空の列が多数含まれる場合があります。 空の各列をXNUMXつずつ削除するには時間がかかる必要があります。 したがって、私たちの中には、この問題を解決する簡単な方法を探している人もいます。 この記事では、複数の空の列をすばやく削除するのに役立ついくつかのトリッキーなヒントを集めています。

式を使用してワークシートの複数の空の列を削除します

VBAコードを使用してワークシートの複数の空の列を削除します

便利な機能を使用して、選択範囲/アクティブシート/ブック全体の複数の空の列を削除します

VBAコードを使用して、ヘッダー付きの複数の空の列を削除します

式を使用してワークシートの複数の空の列を削除します

Excelでは、数式を適用して列が空白かどうかを識別してから、 並び替え すべての空白の列をまとめて並べ替えてから、一度に削除する機能。 このようにしてください：

1。 データ範囲の上部に新しい行を追加します。スクリーンショットを参照してください。

2。 次に、以下の数式をセルA1に入力し、塗りつぶしハンドルを右側にドラッグして、この数式を他のセルに適用します。列が空白の場合はTRUEが表示され、それ以外の場合はFALSEが表示されます。スクリーンショットを参照してください。

3。 次に、ヘルパー行を含むデータ範囲を選択し、[ 且つ > 並び替え、スクリーンショットを参照してください：

4。 飛び出した 並び替え ダイアログボックスで、をクリックします。 オプション 次のボタン ソートオプション ダイアログ、選択 左から右に並べ替え オプション、スクリーンショットを参照してください：

5に設定します。 OK をクリックします。 OK 戻るボタン 並び替え ダイアログを開き、 行1 並べ替え ドロップダウンして選択します セル値 から 並べ替え セクションでは、選択 最大から最小 注文 セクション、スクリーンショットを参照してください：

6。 次に、すべての空の列がデータの左側で並べ替えられました。これで、すべての列を選択してから右クリックして、を選択する必要があります。 削除 これらの空白の列を一度に削除するには、スクリーンショットを参照してください。

VBAコードを使用してワークシートの複数の空の列を削除します

VBAマクロを使用したい場合は、作業がはるかに簡単になります。 次のVBAコードが役立つ場合があります。次のようにしてください。

1。 を押し続けます 他の + F11 Excelでキーを押すと、 アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のマクロをに貼り付けます モジュール 窓。

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、次のようにしてください。

1に設定します。 OK をクリックします。 クツール > 削除 > 非表示の（表示されている）行と列を削除する、スクリーンショットを参照してください：

2。 の中に 非表示の（表示されている）行と列を削除する ダイアログボックスで、操作を適用するスコープを指定します 覗く ドロップダウンリスト。 （選択した場合 選択した範囲内、最初に使用する範囲を選択する必要があります。）次に、チェックします。 コラム 下 タイプを削除。 そして、 空白の列 から 詳細タイプ。 スクリーンショットを参照してください：

3。 次に、をクリックします OK。 また、選択した範囲から空白の列が削除されました。 スクリーンショットを参照してください：

VBAコードを使用して、ヘッダー付きの複数の空の列を削除します

ワークシートのヘッダーのみを含む空の列をすべて削除したい場合があります。次のVBAコードを使用すると、次の手順を実行できます。

1。 を押し続けます 他の + F11 Excelでキーを押すと、 アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のマクロをに貼り付けます モジュール 窓。

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]ボタンをクリックすると、現在のワークシートのヘッダーのみを含むすべての空白の列が一度に削除されます。 スクリーンショットを参照してください：

より相対的な記事：