Passer au contenu principal

Comment supprimer rapidement plusieurs colonnes vides dans Excel?

Parfois, lorsque vous importez des données dans Microsoft Excel à partir d'une source, telle qu'une page Web, un CSV, du texte, etc., il peut y avoir de nombreuses colonnes vides. La suppression de chaque colonne vide une par une doit prendre du temps. Par conséquent, certains d'entre nous recherchent des moyens simples de résoudre ce problème. Cet article rassemble quelques astuces délicates pour vous aider à supprimer rapidement plusieurs colonnes vides.

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

Supprimer plusieurs colonnes vides dans la feuille de calcul avec le code VBA

Supprimer plusieurs colonnes vides dans la sélection / feuille active / classeur entier avec une fonctionnalité utile

Supprimer plusieurs colonnes vides avec un en-tête à l'aide du code VBA


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

Dans Excel, vous pouvez appliquer une formule pour identifier si les colonnes sont vides ou non, puis utiliser le Sort fonction pour trier toutes les colonnes vides ensemble, puis les supprimer à la fois. Veuillez faire comme ceci:

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

2. Entrez ensuite la formule ci-dessous dans la cellule A1, puis faites glisser la poignée de remplissage vers la droite pour appliquer cette formule à d'autres cellules, un VRAI sera affiché si la colonne est vide, sinon, un FAUX s'affiche, voir capture d'écran:

=COUNTA(A2:A1048576)=0

3. Sélectionnez ensuite la plage de données, y compris la ligne d'assistance, puis cliquez sur Données > Sort, voir capture d'écran:

4. Dans le sauté Sort boîte de dialogue, cliquez sur Options bouton, dans ce qui suit Options de tri dialogue, sélectionnez Trier de gauche à droite option, voir les captures d'écran:

5Cliquez sur OK bouton pour retourner le Sort dialogue, puis sélectionnez Rang du Trier par déroulant et sélectionnez Valeurs de cellule du Trier sur section, choisissez Du plus grand au plus petit du Commandes section, voir capture d'écran:

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


Supprimer plusieurs colonnes vides dans la feuille de calcul avec le code VBA

Si vous souhaitez utiliser la macro VBA, les choses vont beaucoup plus facilement. Le code VBA suivant peut vous aider, procédez comme suit:

1. Maintenez le autre + F11 clés dans Excel, et il ouvre le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez la macro suivante dans le Module Fenêtre.

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

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


Supprimer plusieurs colonnes vides dans la sélection / feuille active / classeur entier avec une fonctionnalité utile

La Supprimer les lignes et colonnes masquées (visibles) utilité de Kutools for Excel peut vous aider à supprimer rapidement plusieurs lignes ou colonnes vides à la fois.

Pourboires:Appliquer cette Supprimer les lignes et colonnes masquées (visibles) fonctionnalité, tout d'abord, vous devez télécharger le Kutools for Excel, puis appliquez la fonction rapidement et facilement.

Après l'installation de Kutools for Excel, veuillez faire comme ceci:

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

2. Dans le Supprimer les lignes et colonnes masquées (visibles) boîte de dialogue, spécifiez l'étendue à partir de laquelle vous souhaitez appliquer l'opération Regarder dans la liste déroulante. (Si tu choisis Dans la plage sélectionnée, vous devez sélectionner une plage que vous souhaitez utiliser en premier.) Et puis cochez Colonnes sous Supprimer le type. Et sélectionnez Colonnes vierges du Type détaillé. Voir la capture d'écran:

3. Puis clique OK. Et les colonnes vides ont été supprimées de la plage sélectionnée. Voir la capture d'écran:


Supprimer plusieurs colonnes vides avec un en-tête à l'aide du code VBA

Parfois, vous voudrez peut-être supprimer toutes les colonnes vides qui ne contiennent qu'un en-tête dans la feuille de calcul, le code VBA suivant peut vous rendre service, veuillez suivre les étapes suivantes:

1. Maintenez le autre + F11 clés dans Excel, et il ouvre le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez la macro suivante dans le Module Fenêtre.

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. Et puis, cliquez sur le bouton OK, toutes les colonnes vides avec uniquement en-tête dans la feuille de calcul actuelle sont supprimées à la fois. Voir les captures d'écran:


Articles plus relatifs:

  • Supprimer toutes les images ou autres objets dans Excel
  • Si vous souhaitez supprimer toutes les images de Microsoft Excel, il peut être long de sélectionner chaque image et de les supprimer une par une. Les astuces suivantes peuvent faciliter votre travail pour supprimer toutes les images.
  • Supprimer des lignes en fonction de la couleur d'arrière-plan dans Excel
  • Comment pouvez-vous supprimer des lignes entières en fonction de la couleur d'arrière-plan? Dans cet exemple, je dois supprimer toutes les lignes dont les cellules sont remplies de couleur d'arrière-plan bleu comme illustré ci-dessous. Avec cet article, vous obtiendrez quelques codes pour réaliser cette tâche dans Excel.

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

Description


Office Tab apporte une interface à onglets à Office et facilite grandement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!

Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It deleted all my names in my first name column! Auuggh!
This comment was minimized by the moderator on the site
Thanks its very helpful page with basic excel option :)
This comment was minimized by the moderator on the site
Hi, can anyone guide how i can delete blank cells in a row or column...note whole blank column or rows... only blank cell i need to delete in a column
This comment was minimized by the moderator on the site
Hello,


try to implement below code
This comment was minimized by the moderator on the site
Hi, the thing which you are mentioned is so helpfull. I want a small help from your side. Daily am download the some files and using pivot prepared the reports. It is daily task for me and routine process. How can i do it with out using pivot. Ex: If i prepared the reports on yesterday in "A" Excel file. Next day in "A" Excel file just i replace the new "B" Excel file data. By this automatically report would be create? Is it possible?
This comment was minimized by the moderator on the site
Very helpful page. Thank you. :-) My challenge is that I have columns with headers, but no data in that column. Only the header is present. How would one go about deleting columns where there is no data, but the header is there? :o
This comment was minimized by the moderator on the site
the above details are very helpful for my personal use. Thanks for your guidance. M.KARTHIKEYAN :-)
This comment was minimized by the moderator on the site
I found it much simpler to go to the line after my last line of data, enter "Shift-Ctrl-End" to highlight all blank lines that followed(much faster), right click and enter "delete all rows/columns". The system didn't waste so much time searching this way and so it was clean in the blink of an eye and files that were 20 MB were dropped to a size of 20 kb.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations