Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
INSCRIPTION  \/ 
x

or

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

4. Dans le sauté Trier 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:

5. Cliquez OK bouton pour retourner le Trier dialogue, puis sélectionnez Rang du Trier par déroulant et sélectionnez Valeurs de cellule à partir de Trier sur section, choisissez Du plus grand au plus petit du Placez une commande 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.

2. Cliquez 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

En XNUMX, le Supprimer les lignes et colonnes masquées (visibles) utilité de Kutools pour Excel peut vous aider à supprimer rapidement plusieurs lignes ou colonnes vides à la fois.

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

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

1. Cliquez 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 à partir de 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.

2. Cliquez 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.


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!
bas de cabine
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Marcia · 2 years ago
    It deleted all my names in my first name column! Auuggh!
  • To post as a guest, your comment is unpublished.
    sawan · 4 years ago
    Thanks its very helpful page with basic excel option :)
  • To post as a guest, your comment is unpublished.
    shabbir juzar deluxe · 4 years ago
    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
    • To post as a guest, your comment is unpublished.
      manjunath · 3 years ago
      Hello,


      try to implement below code
  • To post as a guest, your comment is unpublished.
    uday · 5 years ago
    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?
  • To post as a guest, your comment is unpublished.
    Nelson · 6 years ago
    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
  • To post as a guest, your comment is unpublished.
    KARTHIKEYAN · 7 years ago
    the above details are very helpful for my personal use. Thanks for your guidance.

    M.KARTHIKEYAN :-)
  • To post as a guest, your comment is unpublished.
    KJ St.Piere · 8 years ago
    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.