Comment supprimer des colonnes vides avec en-tête dans Excel ?

Si vous avez une grande feuille de calcul qui contient plusieurs colonnes, mais que certaines d'entre elles ne contiennent qu'un en-tête, et que vous souhaitez maintenant supprimer ces colonnes vides qui ne contiennent qu'un en-tête pour obtenir l'affichage de la capture d'écran suivante. Est-il possible de résoudre cela rapidement et facilement dans Excel ?

Supprimer des colonnes vides avec un en-tête en utilisant du code VBA

Supprimer plusieurs colonnes vides dans une plage / feuille de calcul / classeur avec Kutools pour Excel

Supprimer des colonnes vides avec un en-tête en utilisant du code VBA

Dans Excel, il n'y a pas de méthode directe pour traiter cette tâche autre que de les supprimer une par une manuellement, mais ici, je peux vous présenter un code, veuillez procéder comme suit :

1. Maintenez les touches ALT + F11 enfoncées, puis la fenêtre Microsoft Visual Basic for Applications s'ouvre.

2. Cliquez sur Insérer > Module, et collez le code suivant dans la fenêtre Module.

Code VBA : Supprimer des colonnes vides avec un en-tête :

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 columns with only headers are 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. Appuyez ensuite sur la touche F5 pour exécuter ce code, et une boîte de dialogue apparaîtra pour vous rappeler que les colonnes vides avec en-tête seront supprimées.

4. Cliquez sur OK, et toutes les colonnes vides avec seulement des en-têtes dans la feuille de calcul actuelle sont supprimées immédiatement.

Remarque : S'il y a des colonnes vides, elles seront également supprimées.

Supprimer plusieurs colonnes vides dans une plage / feuille de calcul / classeur avec Kutools pour Excel

Parfois, vous n'avez besoin que de supprimer les colonnes vides, l'utilitaire Supprimer les lignes et colonnes masquées (visibles) de Kutools pour Excel peut vous aider à accomplir cette tâche facilement.

Après avoir installé Kutools pour Excel, veuillez procéder comme suit :

1. Sélectionnez la plage de colonnes qui inclut les colonnes vides à supprimer.

2. Cliquez ensuite sur Kutools > Supprimer > Supprimer les lignes et colonnes masquées (visibles), voir capture d'écran :

3. Dans la boîte de dialogue Supprimer les lignes et colonnes masquées (visibles), vous pouvez sélectionner la portée de suppression depuis la liste déroulante Rechercher dans selon vos besoins, sélectionner Colonnes dans la section Type de suppression, puis choisir Colonnes vides dans la section Type détaillé, voir capture d'écran :

4. Cliquez ensuite sur le bouton OK, et seules les colonnes vides sont supprimées immédiatement. Voir capture d'écran :

Astuce : Avec cette fonctionnalité puissante, vous pouvez également supprimer des lignes vides, des colonnes visibles ou des lignes, des colonnes ou des lignes masquées selon vos besoins.