Πώς να διαγράψετε γραμμές που δεν ταιριάζουν με κριτήρια σε άλλο φύλλο;

Μπορεί να μην είναι δύσκολο για εσάς να διαγράψετε σειρές που δεν ταιριάζουν με τα κριτήρια στο ίδιο φύλλο, αλλά γνωρίζετε τρόπους διαγραφής των σειρών που δεν ταιριάζουν με κριτήρια σε άλλο φύλλο όπως φαίνεται παρακάτω. Τώρα έχω δύο κόλπα που μπορούν να σας βοηθήσουν να το λύσετε γρήγορα.

Διαγράψτε σειρές που δεν ταιριάζουν με κριτήρια σε άλλο φύλλο με VBA

Διαγράψτε σειρές που δεν ταιριάζουν με κριτήρια σε άλλο φύλλο με το Kutools για Excel

Κριτήρια (στο φύλλο 2)	Πριν (Φύλλο 1)		Μετά (Φύλλο1)

---

Διαγράψτε σειρές που δεν ταιριάζουν με κριτήρια σε άλλο φύλλο με VBA

Υπάρχει ένας κωδικός VBA που μπορεί να σας βοηθήσει να διαγράψετε σειρές που δεν ταιριάζουν με κριτήρια σε άλλο φύλλο.

1. Τύπος Alt + F11 για να εμφανιστεί το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο παράθυρο, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης για να εμφανιστεί ένα νέο παράθυρο λειτουργικής μονάδας και, στη συνέχεια, αντιγράψτε τον ακόλουθο κώδικα VBA στο παράθυρο της μονάδας.

VBA: Διαγραφή σειρών που δεν ταιριάζουν με κριτήρια σε άλλο φύλλο στο 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. κλικ τρέξιμο, μια KutoolsforExcel εμφανίζεται ένα παράθυρο διαλόγου για να επιλέξετε ένα εύρος που θέλετε να διαγράψετε τις σειρές που δεν πληρούν τα κριτήρια. Δείτε το στιγμιότυπο οθόνης:

4. κλικ OKκαι εμφανίζεται ένα άλλο παράθυρο διαλόγου για την επιλογή των κριτηρίων σε άλλο φύλλο, δείτε το στιγμιότυπο οθόνης:

5. Τώρα αφαιρούνται όλες οι σειρές που δεν ταιριάζουν με τα κριτήρια σε άλλο φύλλο

---

Διαγράψτε σειρές που δεν ταιριάζουν με κριτήρια σε άλλο φύλλο με το Kutools για Excel

Εάν ο κώδικας VBA είναι λίγο δύσκολος για εσάς, μπορείτε να δοκιμάσετε τη δυνατότητα Συγκρίνετε τα εύρη του Kutools for Excel.

Kutools για Excel περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία Excel. Δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Αποκτήστε το τώρα

1. Επιλέξτε το φύλλο που θέλετε να διαγράψετε τις σειρές που δεν πληρούν τα κριτήρια. Και κάντε κλικ Kutools > Συγκρίνετε τα εύρη. Δείτε το στιγμιότυπο οθόνης:

2. Στο Συγκρίνετε τα εύρη διαλόγου, κάντε κλικ στο κουμπί στο Εύρος Βκαι, στη συνέχεια, μπορείτε να επιλέξετε το εύρος κριτηρίων που χρειάζεστε. Δείτε το στιγμιότυπο οθόνης:

 

3. Στη συνέχεια κάντε κλικ στο κουμπί OKκαι μετά επιστροφή στο Συγκρίνετε τα εύρη διάλογος, ελέγξτε Διαφορετική αξία και Επιλέξτε ολόκληρες σειρές. Δείτε το στιγμιότυπο οθόνης:

4. κλικ Okκαι βγείτε από το Συγκρίνετε τα εύρη διάλογος. Στη συνέχεια, βλέπετε τις σειρές τιμών που διαφέρουν από τα κριτήρια που έχουν επιλεγεί.

5. Κάντε δεξί κλικ για κλικ Διαγραφή από το μενού περιβάλλοντος για να διαγράψετε τις σειρές που δεν ταιριάζουν με τα κριτήρια σε άλλο φύλλο.

Κάντε κλικ εδώ για περισσότερες πληροφορίες σχετικά με το Kutools for Excel's σύγκριση Ranges.

---

Σχετικά άρθρα:

• Διαγράψτε σειρές που δεν περιέχουν συγκεκριμένο κείμενο στο Excel