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

Comment rechercher et supprimer plusieurs correspondances à la fois dans Excel ?

Lorsque vous travaillez avec des données volumineuses dans Excel, il est essentiel de pouvoir trouver rapidement les informations dont vous avez besoin à tout moment. Et c'est là que vous avez besoin de la fonction Rechercher et remplacer, qui vous aide à rechercher et à mettre en surbrillance des valeurs ou des formats spécifiques dans la feuille active ou dans l'ensemble du classeur, puis à faire ce que vous voulez avec les résultats, par exemple, les supprimer ou les remplacer. Cependant, avec la fonction Rechercher et remplacer d'Excel, vous ne pouvez rechercher qu'une seule valeur à la fois. Dans ce didacticiel, je présenterai un moyen rapide de rechercher plusieurs valeurs différentes et de les supprimer simultanément dans Excel.


Rechercher et supprimer plusieurs correspondances à la fois avec VBA

Nous avons créé deux codes VBA pour vous aider à trouver plusieurs valeurs différentes dans la plage sélectionnée ou sur plusieurs feuilles de calcul et à les supprimer immédiatement. Veuillez suivre les étapes ci-dessous et exécuter le code en fonction de vos besoins.

1. Dans votre Excel, appuyez sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Module. Copiez ensuite l'un des codes VBA suivants dans le Module fenêtre.

Code VBA 1 : rechercher et supprimer plusieurs correspondances dans la plage sélectionnée à la fois

Sub FindAndDeleteDifferentValues_Range()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg As Range
Dim xURg As Range
Dim xFindRgs As Range
Dim xFAddress As String
Dim xBol As Boolean
Dim xJ

xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas

On Error Resume Next
Set xRg = Application.InputBox("Please select the search scope:", "Kutools for Excel", , Type:=8)
If xRg Is Nothing Then Exit Sub

xBol = False
For Each xARg In xRg.Areas
    Set xFindRg = Nothing
    Set xFindRgs = Nothing
    Set xURg = Application.Intersect(xARg, xARg.Worksheet.UsedRange)
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.ClearContents
    End If
Next
If xBol Then
    MsgBox "Successfully deleted."
Else
     MsgBox "No results found."
End If
End Sub

Remarque : Dans l'extrait xTablFinStr = Tableau("ventes", "9", "@") dans la 13e rangée, vous devez remplacer "ventes", "9", "@" avec les valeurs réelles que vous souhaitez rechercher et supprimer, n'oubliez pas de placer chaque valeur entre guillemets doubles et de les séparer par des virgules.


Code VBA 2 : rechercher et supprimer plusieurs correspondances sur plusieurs feuilles à la fois

Sub FindAndDeleteDifferentValues_WorkSheets()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg, xFindRgs As Range
Dim xWShs As Worksheets
Dim xWSh As Worksheet
Dim xWb As Workbook
Dim xURg As Range
Dim xFAddress As String
Dim xArr, xArrFinStr
Dim xI, xJ
Dim xBol As Boolean
xArr = Array("Sheet1", "Sheet2") 'Names of the sheets where to find and delete the values. Enclose each with double quotes and separate them with commas
xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas
'On Error Resume Next
Set xWb = Application.ActiveWorkbook
xBol = False
For xI = LBound(xArr) To UBound(xArr)
    Set xWSh = xWb.Worksheets(xArr(xI))
    Set xFindRg = Nothing
    xWSh.Activate
    Set xFindRgs = Nothing

    Set xURg = xWSh.UsedRange
    Set xFindRgs = Nothing
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.ClearContents
    End If
Next

If xBol Then
    MsgBox "Successfully deleted."
Else
     MsgBox "No results found."
End If
End Sub
Remarque :
  • Dans l'extrait xArr = Tableau("Feuille1", "Feuille2") dans la 15e rangée, vous devez remplacer "Feuille1", "Feuille2" avec les noms réels des feuilles où vous souhaitez rechercher et supprimer les valeurs. N'oubliez pas de mettre les noms de chaque feuille entre guillemets doubles et de les séparer par des virgules.
  • Dans l'extrait xTablFinStr = Tableau("ventes", "9", "@") dans la 16e rangée, vous devez remplacer "ventes", "9", "@" avec les valeurs réelles que vous souhaitez rechercher et supprimer, n'oubliez pas de placer chaque valeur entre guillemets doubles et de les séparer par des virgules.

3. presse F5 pour exécuter le code VBA. Remarque : Si vous utilisez le Code VBA 1, une boîte de dialogue apparaîtra vous demandant de sélectionner la plage où rechercher et supprimer des valeurs. Vous pouvez également cliquer sur un onglet de feuille pour sélectionner la feuille entière.

4. La boîte de dialogue illustrée ci-dessous s'affiche pour vous indiquer que le code a supprimé les correspondances spécifiées. Cliquez sur OK pour fermer le dialogue.

5. Les valeurs spécifiées ont été supprimées immédiatement.


Trouvez et supprimez plusieurs correspondances à la fois avec la fonction Sélectionner des cellules spécifiques

Kutools pour Excel offre le Sélectionnez des cellules spécifiques pour trouver des valeurs qui répondent à une ou deux conditions que vous avez définies à la fois, veuillez lire la suite pour savoir comment trouver et supprimer rapidement plusieurs valeurs à la fois.

1. D' Kutools onglet, dans le POSTPRODUCTION groupe, cliquez sur Sélectionnez > Sélectionnez des cellules spécifiques.

2. Dans la fenêtre contextuelle Sélectionnez des cellules spécifiques boîte de dialogue, procédez comme suit:
  • Dans le Sélectionnez les cellules de cette plage case, cliquez sur le bouton de sélection de plage à droite pour spécifier la plage de où trouver et supprimer des valeurs. Remarque : Pour effectuer une recherche sur toute la feuille, cliquez sur l'onglet de la feuille.
  • Dans le Type de sélection section, sélectionnez Cellule option.
  • Dans le Type spécifique section, définissez au plus deux conditions :
    • Cliquez sur la flèche déroulante à gauche pour sélectionner une relation dont vous avez besoin, telle que Inclus, Équivaut à, Moins que, Commence par, etc.
    • Tapez la valeur dans la case correspondante en fonction de vos besoins.
    • Spécifiez la relation entre les deux conditions (s'il y en a) : Et or Or.

3. Cliquez Ok pour sélectionner les cellules qui remplissent les conditions que vous avez définies. Une boîte de dialogue apparaît vous indiquant combien de cellules ont été trouvées et sélectionnées.

4. Cliquez OK. Maintenant, appuyez sur le EFFACER touche pour supprimer les valeurs sélectionnées à la fois.

Remarque : Pour utiliser la Sélectionnez des cellules spécifiques fonctionnalité, vous devriez avoir Kutools for Excel installé sur votre ordinateur. Si vous n'avez pas installé Kutools, cliquez ici pour télécharger et installer. Le complément Excel professionnel offre un essai gratuit de 30 jours sans limitation.


Rechercher et supprimer plusieurs correspondances à la fois dans Excel


Articles connexes

Rechercher, mettre en évidence, filtrer, compter, supprimer les doublons dans Excel

Dans Excel, les données en double se produisent à chaque fois lorsque nous enregistrons des données manuellement, copions des données à partir d'autres sources ou pour d'autres raisons. Parfois, les doublons sont nécessaires et utiles. Cependant, les valeurs dupliquées entraînent parfois des erreurs ou des malentendus. Ici, cet article présentera des méthodes pour identifier rapidement, mettre en évidence, filtrer, compter, supprimer les doublons par des formules, des règles de mise en forme conditionnelle, des compléments tiers, etc. dans Excel.

Comment comparer deux colonnes et supprimer les correspondances dans Excel ?

Si vous avez deux colonnes / listes contenant des doublons, vous voulez maintenant les comparer et découvrir les correspondances, les supprimer, comment pouvez-vous les résoudre rapidement? Dans cet article, je présente différentes façons de vous aider à le gérer dans Excel.

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

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

Comment supprimer toutes les images d'une plage de cellules ?

Si plusieurs images sont remplies dans votre feuille de calcul, vous souhaitez maintenant en supprimer certaines dans une plage spécifiée, comment gérez-vous cela rapidement?


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-2021 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes 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 (0)
Pas encore de notes. Soyez le premier à évaluer!
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

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL