Comment supprimer tout sauf les plages sélectionnées dans Excel ?

Dans Excel, nous pouvons rapidement et directement supprimer les plages sélectionnées, mais avez-vous déjà essayé de supprimer le contenu des autres cellules à l'exception des plages sélectionnées ? Dans cet article, je vais vous présenter quelques astuces pour résoudre cette tâche dans Excel rapidement et facilement.

Supprimer tout sauf les plages sélectionnées avec un code VBA

Supprimer tout sauf les plages sélectionnées avec l'Assistant de plage de Kutools pour Excel

Supprimer tout sauf les plages sélectionnées avec Copier des plages de Kutools pour Excel

Supprimer tout sauf les plages sélectionnées avec un code VBA

Il n'y a pas de méthode directe pour supprimer toutes les valeurs des cellules non sélectionnées en une seule fois, mais le code VBA suivant pourrait vous aider. Veuillez procéder comme suit :

1. Veuillez maintenir la touche Ctrl enfoncée pour sélectionner les cellules que vous souhaitez conserver.

2. Appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

3. Dans la boîte de dialogue Microsoft Visual Basic pour Applications, cliquez sur Insertion > Module, puis copiez et collez le code VBA ci-dessous dans la fenêtre Module.

Code VBA : supprimer toutes les valeurs des cellules sauf les plages sélectionnées

Sub ClearAllExceptSelection()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the ranges want to keep", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In ActiveSheet.UsedRange
        If Intersect(xCell, xRg) Is Nothing Then
            xCell.Clear
        End If
    Next
    Application.ScreenUpdating = xUpdate
End Sub

4. Ensuite, appuyez sur la touche F5 pour exécuter ce code, et une boîte de dialogue apparaît pour vous rappeler de sélectionner la plage de cellules que vous souhaitez conserver. Si vous avez déjà sélectionné les plages à l'étape 1, cliquez sur OK ; sinon, vous pouvez sélectionner les cellules souhaitées dans la boîte de dialogue, et insérer des virgules pour séparer les plages multiples, puis cliquez sur le bouton OK, voir capture d'écran :

5. Après avoir cliqué sur OK, toutes les autres valeurs des cellules ont été supprimées, ne laissant que les plages sélectionnées, voir capture d'écran :

Supprimer tout sauf les plages sélectionnées avec l'Assistant de plage de Kutools pour Excel

Si vous avez installé Kutools pour Excel, avec la fonctionnalité Inverser la sélection de l'utilitaire Assistant de plage, vous pouvez rapidement inverser la sélection, puis supprimer les sélections inversées en une seule fois.

Après avoir installé Kutools pour Excel, veuillez procéder comme suit :

1. Sélectionnez les plages de cellules que vous souhaitez conserver.

2. Cliquez ensuite sur Kutools > Sélectionner > Assistant de plage, voir capture d'écran :

3. Dans la boîte de dialogue Assistant de plage, cochez Inverser la sélection, voir capture d'écran :

4. Ensuite, faites glisser la souris pour sélectionner la plage dont vous souhaitez inverser les sélections. Lorsque vous relâchez la souris, les cellules sélectionnées sont désélectionnées et les cellules non sélectionnées sont immédiatement sélectionnées. Voir capture d'écran :

5. Fermez ensuite la boîte de dialogue, et appuyez sur la touche Suppr pour supprimer les sélections en une seule fois. Seules vos cellules désirées ont été conservées, voir capture d'écran :

Supprimer tout sauf les plages sélectionnées avec l'Assistant de plage de Kutools pour Excel

Une autre fonctionnalité - Copier des plages de Kutools pour Excel peut également vous aider à accomplir cette tâche. Il vous suffit de copier vos plages sélectionnées vers une nouvelle feuille de calcul, puis de supprimer l'ancienne feuille de calcul.

Après avoir installé Kutools pour Excel, veuillez suivre les étapes suivantes :

1. Maintenez la touche Ctrl enfoncée pour sélectionner les plages de cellules que vous souhaitez conserver.

2. Cliquez ensuite sur Kutools > Copier des plages, voir capture d'écran :

3. Dans la boîte de dialogue Copier plusieurs plages, cochez l'option Tout sous Collage spécial, cochez Inclure la hauteur de ligne et Inclure la largeur de colonne si vous souhaitez conserver la hauteur de ligne et la largeur de colonne souhaitées, voir capture d'écran :

4. Cliquez ensuite sur le bouton OK, et une autre boîte de dialogue apparaîtra pour vous rappeler de sélectionner une cellule où placer les cellules copiées. Veuillez sélectionner une cellule dans une nouvelle feuille de calcul, voir capture d'écran :

5. Cliquez ensuite sur OK, et seules vos plages sélectionnées ont été collées dans la nouvelle feuille de calcul, et maintenant vous pouvez supprimer la feuille de calcul originale selon vos besoins.

Démo : Supprimer tout sauf les plages sélectionnées avec Kutools pour Excel