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

Critères (dans la feuille 2)	Avant (feuille 1)		Après (Sheet1)

---

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:

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:

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

---

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:

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:

 

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

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.

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.

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

---

Articles relatifs:

• Supprimer les lignes ne contenant pas certains textes dans Excel