Passer au contenu principal

Comment supprimer des lignes ne correspondant pas aux critères d'une autre feuille?

Il peut ne pas être difficile pour vous de supprimer des lignes qui ne correspondent pas aux critères sur la même feuille, mais connaissez-vous des moyens de supprimer les lignes ne correspondant pas aux critères sur une autre feuille comme indiqué ci-dessous. Maintenant, j'ai deux astuces qui peuvent vous aider à le résoudre rapidement.

Supprimer les lignes ne correspondant pas aux critères d'une autre feuille avec VBA

Supprimer les lignes ne correspondant pas aux critères sur une autre feuille avec Kutools for Excel

doc-delete-based-on-an-other-sheet-1 doc-delete-based-on-an-other-sheet-2 doc-droite doc-delete-based-on-an-other-sheet-3
 Critères (dans la feuille 2)     Avant (feuille 1)          Après (Sheet1)



flèche bleue bulle droite Supprimer les lignes ne correspondant pas aux critères d'une autre feuille avec VBA

Il existe un code VBA qui peut vous aider à supprimer les lignes ne correspondant pas aux critères d'une autre feuille.

1. presse Alt + F11 pour afficher le Microsoft Visual Basic pour applications fenêtre.

2. Dans la fenêtre, cliquez sur insérer > Module pour afficher une nouvelle fenêtre de module, puis copiez le code VBA suivant dans la fenêtre de module.

VBA: supprimez les lignes ne correspondant pas aux critères sur une autre feuille dans Excel.

Sub DeleteRow()
'Updateby20140618
Dim rng As Range
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant
Dim arr2 As Variant
Dim dic2 As Variant
Dim OutArr As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Set Rng1 = Rng1.Columns(1)
Set Rng2 = Rng2.Columns(1)
Set dic2 = CreateObject("Scripting.Dictionary")
arr1 = Rng1.Value
arr2 = Rng2.Value
For i = 1 To UBound(arr2, 1)
    xKey = arr2(i, 1)
    dic2(xKey) = ""
Next
Rng1.ClearContents
OutArr = Rng1.Value
xIndex = 1
For i = 1 To UBound(arr1, 1)
    xKey = arr1(i, 1)
    If dic2.Exists(xKey) Then
        OutArr(xIndex, 1) = xKey
        xIndex = xIndex + 1
    End If
Next
Rng1.Value = OutArr
End Sub
3. Cliquez Courirun KutoolsforExcel La boîte de dialogue apparaît pour vous permettre de sélectionner une plage dont vous souhaitez supprimer les lignes qui ne correspondent pas aux critères. Voir la capture d'écran:

doc-delete-based-on-an-other-sheet-4

4. Cliquez OK, et une autre boîte de dialogue apparaît pour sélectionner les critères dans une autre feuille, voir capture d'écran:

doc-delete-based-on-an-other-sheet-5

5. Toutes les lignes ne correspondant pas aux critères d'une autre feuille sont maintenant supprimées.


flèche bleue bulle droite Supprimer les lignes ne correspondant pas aux critères sur une autre feuille avec Kutools for Excel

Si le code VBA est un peu difficile pour vous, vous pouvez essayer la fonctionnalité de comparaison des plages de Kutools for Excel.

Kutools for Excel comprend plus de 300 outils Excel pratiques. Essai gratuit sans limitation de 30 jours. Obtenez-le maintenant

1. Sélectionnez la feuille dont vous souhaitez supprimer les lignes qui ne correspondent pas aux critères. Et cliquez Kutools > Comparer les gammes. Voir la capture d'écran:

doc-delete-based-on-an-other-sheet-6

2. dans le Comparer les gammes boîte de dialogue, cliquez sur le bouton Gamme B, puis vous pouvez sélectionner la plage de critères dont vous avez besoin. Voir la capture d'écran:

doc-delete-based-on-an-other-sheet-7
doc-flèche
doc-delete-based-on-an-other-sheet-8

 

3. Puis clique OK, puis revenons au Comparer les gammes boîte de dialogue, vérifier Valeur différente et Sélectionnez des lignes entières. Voir la capture d'écran:

doc-delete-based-on-an-other-sheet-9

4. Cliquez Ok, et quittez le Comparer les gammes dialogue. Ensuite, vous voyez que les lignes de valeur qui sont différentes des critères sont sélectionnées.

doc-delete-based-on-an-other-sheet-10

5. Faites un clic droit pour cliquer Supprimer dans le menu contextuel pour supprimer les lignes qui ne correspondent pas aux critères d'une autre feuille.

doc-delete-based-on-an-other-sheet-11

Cliquez ici pour plus d'informations sur les plages de comparaison de Kutools for Excel.


Articles relatifs:

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

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

Description


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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Doesn't work with sheets that have multiple columns because it doesn't actually delete the row, just the cell.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations