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 SubRemarque: 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- 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 Montage groupe, cliquez sur Sélectionnez > Sélectionnez des cellules spécifiques.
- 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 pour Excel installé sur votre ordinateur. Si Kutools n'est pas installé, 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?
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement 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!
