Comment supprimer rapidement plusieurs colonnes vides dans Excel ?

Parfois, lorsque vous importez des données dans Microsoft Excel à partir d'une page web, d'un fichier CSV, de texte, etc., il peut y avoir de nombreuses colonnes vides. Il serait très chronophage de supprimer chaque colonne vide une par une. Par conséquent, certains d'entre nous recherchent des solutions simples pour résoudre ce problème. Cet article rassemble quelques astuces pour vous aider à supprimer rapidement plusieurs colonnes vides.

Supprimer plusieurs colonnes vides dans une feuille de calcul avec une formule

Supprimer plusieurs colonnes vides dans une feuille de calcul avec du code VBA

Supprimer plusieurs colonnes vides dans une plage sélectionnée / feuille active / classeur entier avec Kutools pour Excel

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

Supprimer plusieurs colonnes vides dans une feuille de calcul avec une formule

Dans Excel, vous pouvez appliquer une formule pour identifier si les colonnes sont vides ou non, puis utiliser la fonction Trier pour regrouper toutes les colonnes vides ensemble et ensuite les supprimer en une seule fois. Veuillez procéder comme suit :

1. Ajoutez une nouvelle ligne en haut de votre plage de données, voir capture d'écran :

2. Ensuite, entrez la formule ci-dessous dans la cellule A1, puis faites glisser la poignée de remplissage vers la droite pour appliquer cette formule aux autres cellules. Un OUI sera affiché si la colonne est vide, sinon un NON sera affiché, voir capture d'écran :

3. Ensuite, sélectionnez la plage de données incluant la ligne d'aide, puis cliquez sur "Données" > "Trier", voir capture d'écran :

4. Dans la boîte de dialogue "Trier" qui apparaît, cliquez sur le bouton "Options", puis dans la fenêtre "Options de tri", sélectionnez l'option "Trier de gauche à droite", voir captures d'écran :

5. Cliquez sur OK pour revenir à la boîte de dialogue "Trier", puis sélectionnez "Ligne 1" dans la liste déroulante "Trier par", et sélectionnez "Valeurs des cellules" dans la section "Trier par", choisissez "Du plus grand au plus petit" dans la section "Ordre", voir capture d'écran :

6. Ensuite, toutes les colonnes vides ont été triées à gauche de vos données, et maintenant, il suffit de sélectionner toutes les colonnes, puis de faire un clic droit, choisir "Supprimer" pour supprimer ces colonnes vides en une seule fois, voir capture d'écran :

Supprimer plusieurs colonnes vides dans une feuille de calcul avec du code VBA

Si vous souhaitez utiliser une macro VBA, cela devient beaucoup plus simple. Le code VBA suivant pourrait vous aider, veuillez procéder comme suit :

1. Maintenez les touches "Alt + F11" dans Excel, et cela ouvre la fenêtre "Microsoft Visual Basic for Applications".

2. Cliquez sur "Insérer" > "Module", puis collez la macro suivante dans la fenêtre Module.

Code VBA : Supprimer plusieurs colonnes vides dans la sélection :

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. Appuyez sur la touche F5 pour exécuter cette macro, sélectionnez la plage de travail dont vous avez besoin dans la boîte de dialogue qui apparaît. Voir capture d'écran :

4. Cliquez sur OK, puis toutes les colonnes vides dans la sélection sont supprimées. Voir capture d'écran :

Supprimer plusieurs colonnes vides dans une plage sélectionnée / feuille active / classeur entier avec Kutools pour Excel

L'utilitaire Supprimer les lignes et colonnes masquées (visibles) de Kutools pour Excel peut vous aider à supprimer rapidement plusieurs lignes ou colonnes vides en une seule fois.

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

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

2. Dans la boîte de dialogue "Supprimer les lignes et colonnes masquées (visibles)", spécifiez la portée où vous souhaitez appliquer l'opération depuis la liste déroulante "Rechercher dans". (Si vous choisissez Dans la plage sélectionnée, vous devez d'abord sélectionner une plage que vous souhaitez utiliser.) Puis cochez "Colonnes" sous "Type de suppression". Et sélectionnez "Colonnes vides" depuis "Type détaillé". Voir capture d'écran :

3. Ensuite, cliquez sur OK. Les colonnes vides ont été supprimées de la plage sélectionnée. Voir capture d'écran :

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

Parfois, vous souhaiterez peut-être supprimer toutes les colonnes vides contenant uniquement un en-tête dans la feuille de calcul. Le code VBA suivant peut vous aider, veuillez procéder comme suit :

1. Maintenez les touches "Alt + F11" dans Excel, et cela ouvre la fenêtre "Microsoft Visual Basic for Applications".

2. Cliquez sur "Insérer" > "Module", puis collez la macro suivante dans la fenêtre Module.

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

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. 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, voir capture d'écran :

4. Ensuite, cliquez sur le bouton OK, toutes les colonnes vides ne contenant qu'un en-tête dans la feuille de calcul actuelle sont supprimées en une seule fois. Voir captures d'écran :

Plus d'articles connexes :