Excelでヘッダー付きの空の列を削除するにはどうすればよいですか？

複数の列を含む大きなワークシートがあり、一部の列にはヘッダーのみが含まれている場合、次のスクリーンショットを表示するには、ヘッダーのみの空の列を削除します。 これはExcelですばやく簡単に解決できますか？

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

Kutools for Excelを使用して、範囲/ワークシート/ワークブック内の複数の空の列を削除します

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

Excelでは、手動でXNUMXつずつ削除する以外に、このジョブを直接処理する方法はありませんが、ここでは、コードを紹介します。次のようにしてください。

1. 押したまま Alt + F11 キーを押すと、 アプリケーション向け Microsoft Visual Basic 窓。

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

VBAコード：ヘッダー付きの空の列を削除します：

Sub Macro1()
'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 and column(s) with only a header row have now 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 ボタンをクリックすると、現在のワークシートのヘッダーのみを含むすべての空白の列が一度に削除されます。

Note：空白の列がある場合は、それらも削除されます。

Kutools for Excelを使用して、範囲/ワークシート/ワークブック内の複数の空の列を削除します

場合によっては、空白の列を削除するだけで済みます。 Kutools for Excelさん 非表示の（表示されている）行と列を削除する ユーティリティは、このタスクを簡単に完了するのに役立ちます。

インストールした後 Kutools for Excel、次のようにしてください。

1。 削除する必要がある空白の列を含む列範囲を選択します。

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

3。 の中に 非表示の（表示されている）行と列を削除する ダイアログボックスで、必要に応じて[探す場所]ドロップダウンから削除スコープを選択できます。 コラム タイプを削除 セクションをクリックしてから、 空白の列 詳細タイプ セクション、スクリーンショットを参照してください：

4。 次に、をクリックします Ok ボタンをクリックすると、空の列のみが一度に削除されます。 スクリーンショットを参照してください：

ヒント：この強力な機能を使用すると、必要に応じて、空白行、表示されている列または行、非表示の列または行を削除することもできます。

今すぐExcel用の無料ダウンロードKutoolsをクリックしてください！