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 Sauvegarde de > 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 à Trier sur section, choisissez Du plus grand au plus petit du Order 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

L' 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.

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 à 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: