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:

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.

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:

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.

Lire la suite... Téléchargement Gratuit... Achat... 

---

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!

Lire la suite... Téléchargement Gratuit... Achat...