Note: The other languages of the website are Google-translated. Back to English

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 À partir de Trier sur section, choisissez Du plus grand au plus petit du 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.

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

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:

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 À 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.

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.


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éeplus
  • 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 gammesplus
  • 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 cellulesplus
  • 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 PDFplus
  • 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
Commentaires (8)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
J'ai trouvé beaucoup plus simple d'aller à la ligne après ma dernière ligne de données, d'entrer "Maj-Ctrl-Fin" pour mettre en surbrillance toutes les lignes vides qui suivaient (beaucoup plus rapidement), de faire un clic droit et d'entrer "supprimer toutes les lignes/colonnes". Le système n'a pas perdu autant de temps à chercher de cette façon et il a donc été nettoyé en un clin d'œil et les fichiers de 20 Mo ont été réduits à une taille de 20 Ko.
Ce commentaire a été minimisé par le modérateur sur le site
les détails ci-dessus sont très utiles pour mon usage personnel. Merci pour vos conseils. M.KARTHIKEYAN :-)
Ce commentaire a été minimisé par le modérateur sur le site
Page très utile. Merci. :-) Mon défi est que j'ai des colonnes avec des en-têtes, mais aucune donnée dans cette colonne. Seul l'en-tête est présent. Comment procéder pour supprimer des colonnes où il n'y a pas de données, mais où l'en-tête est là ? :o
Ce commentaire a été minimisé par le modérateur sur le site
Salut, la chose que vous avez mentionnée est si utile. Je veux une petite aide de votre part. Chaque jour, je télécharge certains fichiers et j'utilise pivot pour préparer les rapports. C'est une tâche quotidienne pour moi et un processus de routine. Comment puis-je le faire sans utiliser pivot. Ex : Si j'ai préparé les rapports d'hier dans un fichier Excel "A". Le lendemain, dans le fichier Excel "A", je remplace simplement les nouvelles données du fichier Excel "B". Par ce rapport serait automatiquement créer? C'est possible?
Ce commentaire a été minimisé par le modérateur sur le site
Salut, quelqu'un peut-il indiquer comment je peux supprimer des cellules vides dans une ligne ou une colonne... notez toute la colonne ou les lignes vides... seulement la cellule vide que je dois supprimer dans une colonne
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,


essayez d'implémenter le code ci-dessous
Ce commentaire a été minimisé par le modérateur sur le site
Merci sa page très utile avec l'option Excel de base :)
Ce commentaire a été minimisé par le modérateur sur le site
Il a supprimé tous mes noms dans ma colonne de prénom ! Augh !
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés