Αν ψάχνετε για μερικούς από τους ευκολότερους τρόπους για να διαγράψετε σειρά χρησιμοποιώντας VBA , τότε βρίσκεστε στο σωστό μέρος.

Ας βουτήξουμε στο κύριο άρθρο.

Λήψη βιβλίου εργασίας

14 τρόποι για να διαγράψετε γραμμή χρησιμοποιώντας την VBA

Εδώ, έχω τους τρεις πίνακες δεδομένων για να δείξω τους τρόπους διαγραφής γραμμών χρησιμοποιώντας VBA Ο πρώτος πίνακας περιέχει ορισμένα Προϊόντα μιας εταιρείας και των Μεγέθη , Τιμές .

Το δεύτερο έχει κάποια Κωδικοί προϊόντων και τα αντίστοιχα Μεγέθη προϊόντων και Τιμές

Και το τελευταίο περιέχει κάποια Ονόματα έργων και τις αντίστοιχες Ημερομηνίες έναρξης και Κόστος .

Για τη δημιουργία του άρθρου, χρησιμοποίησα Microsoft Excel 365 έκδοση, μπορείτε να χρησιμοποιήσετε οποιεσδήποτε άλλες εκδόσεις ανάλογα με την ευκολία σας.

Μέθοδος-1: Διαγραφή μίας μόνο γραμμής με χρήση της VBA

Ας υποθέσουμε ότι θέλετε να διαγράψετε τη γραμμή που περιέχει Προϊόν Παπούτσι 1, και για να διαγράψετε αυτή τη γραμμή μπορείτε να ακολουθήσετε αυτή τη μέθοδο.

Βήμα-01 :

➤Γύρνα σε Προγραμματιστής Καρτέλα>>, Visual Basic Επιλογή

Στη συνέχεια, το Visual Basic Editor θα ανοίξει.

➤Γύρνα σε Εισαγωγή Καρτέλα>>, Ενότητα Επιλογή

Μετά από αυτό, ένα Ενότητα θα δημιουργηθεί.

Βήμα-02 :

➤Γράψτε τον ακόλουθο κώδικα

 Sub dltrow1() Worksheets("Single").Rows(7).EntireRow.Delete End Sub 

Ορίστε, "Single" είναι το όνομα του φύλλου εργασίας και Σειρές(7) θα επιλέξει τον αριθμό γραμμής.

.EntireRow.Delete θα διαγράψει ολόκληρη τη γραμμή 7.

➤Press F5

Αποτέλεσμα :

Με αυτόν τον τρόπο, θα διαγράψετε τη γραμμή που περιέχει το Προϊόν όνομα Παπούτσι 1 .

Διαβάστε περισσότερα: Πώς να διαγράψετε σειρές στο Excel: 7 μέθοδοι

Μέθοδος-2: Διαγραφή πολλαπλών σειρών με χρήση της VBA

Εάν θέλετε να διαγράψετε πολλαπλές γραμμές, όπως οι γραμμές που περιέχουν το Προϊόν ονόματα Παπούτσι1 , Παπούτσι2, και Παπούτσι3 , τότε μπορείτε να ακολουθήσετε αυτό VBA κωδικός.

Βήμα-01 :

➤Follow Βήμα-01 του Μέθοδος-1

 Sub dltrow2() Rows(13).EntireRow.Delete Rows(10).EntireRow.Delete Rows(7).EntireRow.Delete End Sub 

Εδώ, οι αριθμοί γραμμής 13, 10 και 7 θα διαγραφούν και για να γράψετε σειριακά τους αριθμούς γραμμής πρέπει να γράψετε από τον τελευταίο αριθμό γραμμής στον αριθμό της πρώτης γραμμής, όπως αυτός ο κώδικας.

Διαφορετικά, μετά τη διαγραφή της πρώτης γραμμής, όπως η γραμμή 7, οι υπόλοιπες γραμμές κάτω από αυτή τη γραμμή θα μετακινηθούν μία γραμμή προς τα πάνω και έτσι η γραμμή 10 θα γίνει γραμμή 9 και η γραμμή 13 θα γίνει γραμμή 12. Για το λόγο αυτό, δεν θα μπορέσετε να διαγράψετε τις σωστές γραμμές.

➤Press F5

Αποτέλεσμα :

Στη συνέχεια, θα διαγράψετε τις γραμμές που περιέχουν το Προϊόν ονόματα Παπούτσι 1 , Παπούτσι2, και Παπούτσι3 .

Διαβάστε περισσότερα: Πώς να διαγράψετε πολλαπλές γραμμές στο Excel (3 μέθοδοι)

Μέθοδος-3: Διαγραφή γραμμής με επιλογή

Εδώ, θα δείξω τον τρόπο διαγραφής μιας γραμμής σε σχέση με ένα ενεργό κελί της γραμμής αυτής.

Βήμα-01 :

➤Follow Βήμα-01 του Μέθοδος-1

 Sub dltrow3() ActiveCell.EntireRow.Delete End Sub 

Θα διαγράψει τη γραμμή που έχει ένα ενεργό κελί.

➤Αποθηκεύστε τον κωδικό.

Βήμα-02 :

➤Επιλέξτε οποιοδήποτε κελί μιας γραμμής που θέλετε να διαγράψετε ( Εδώ έχω επιλέξει το κελί B7 )

➤Γύρνα σε Προγραμματιστής Καρτέλα>>, Μακροεντολές Επιλογή

Μετά από αυτό, το Μάκρο Θα ανοίξει ο Οδηγός.

➤Επιλέξτε το Όνομα μακροεντολής dltrow3 και πατήστε Εκτέλεση

Αποτέλεσμα :

Στη συνέχεια, θα διαγράψετε τη γραμμή που περιέχει το Προϊόν όνομα Παπούτσι 1 .

Μέθοδος-4: Διαγραφή όλων των σειρών της επιλογής

Για τη διαγραφή όλων των γραμμών μιας επιλογής μπορείτε να ακολουθήσετε αυτή τη μέθοδο.

Βήμα-01 :

➤Follow Βήμα-01 του Μέθοδος-1

 Sub dltrow4() Selection.EntireRow.Delete End Sub 

Θα διαγράψει όλες τις γραμμές της επιλογής.

➤Αποθηκεύστε τον κωδικό.

Βήμα-02 :

➤Επιλέξτε το εύρος των γραμμών που θέλετε να διαγράψετε (εδώ, έχω επιλέξει το εύρος B7:D9 )

➤Γύρνα σε Προγραμματιστής Καρτέλα>>, Μακροεντολές Επιλογή

Μετά από αυτό, το Μάκρο Θα ανοίξει ο Οδηγός.

➤Επιλέξτε το Όνομα μακροεντολής dltrow4 και πατήστε Εκτέλεση

Αποτέλεσμα :

Στη συνέχεια, θα διαγράψετε τις γραμμές που περιέχουν το Προϊόν ονόματα Παπούτσι 1 , Μπουφάν1, και Jacket2 .

Διαβάστε περισσότερα: Πώς να διαγράψετε επιλεγμένες γραμμές στο Excel (8 προσεγγίσεις)

Μέθοδος-5: Διαγραφή μιας γραμμής αν κάποιο κελί είναι κενό

Εδώ, έχω ένα κενό κελί που είναι B9 (έχω αφαιρέσει την τιμή από αυτό το κελί για αυτή τη μέθοδο), και χρησιμοποιώντας ένα VBA θα διαγράψω τη γραμμή που έχει B9 κύτταρο.

Βήμα-01 :

➤Follow Βήμα-01 του Μέθοδος-1

 Sub dltrow5() Range("B5:D13").SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub 

Θα διαγράψει όλες τις γραμμές στο εύρος "B5:D13" έχοντας οποιοδήποτε κενό κελί.

➤Press F5

Αποτέλεσμα :

Στη συνέχεια, θα μπορείτε να διαγράψετε τη γραμμή που περιέχει το κενό κελί.

Διαβάστε περισσότερα: Πώς να αφαιρέσετε κενές γραμμές στο Excel (11 μέθοδοι)

Μέθοδος-6: Διαγραφή μιας γραμμής εάν ολόκληρη η γραμμή είναι κενή

Εδώ, έχω ένα κενό κελί που είναι B9 (έχω αφαιρέσει τις τιμές για αυτή τη μέθοδο), και μια κενή γραμμή που είναι η γραμμή 12 (έχω αφαιρέσει τις τιμές για αυτή τη μέθοδο), και χρησιμοποιώντας ένα VBA κώδικα και το Συνάρτηση COUNTA Θα διαγράψω τη σειρά που είναι κενή.

Βήμα-01 :

➤Follow Βήμα-01 του Μέθοδος-1

 Sub dltrow6() Dim cell As Range For Each cell In Range("B5:D13") If Application.WorksheetFunction.CountA(cell.EntireRow) = 0 Then cell.EntireRow.Delete End If Next cell End Sub 

"B5:D13" είναι το εύρος δεδομένων και ΓΙΑ βρόχος θα λειτουργήσει για κάθε κελί σε αυτό το εύρος.

CountA(cell.EntireRow) θα επιστρέψει τον αριθμό των μη κενών κελιών και όταν αυτός γίνει 0, τότε η γραμμή θα διαγραφεί.

➤Press F5

Αποτέλεσμα :

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

Διαβάστε περισσότερα: Πώς να χρησιμοποιήσετε τη VBA για να διαγράψετε κενές γραμμές στο Excel

Μέθοδος-7: Διαγραφή κάθε n-οστής γραμμής

Μπορείτε να διαγράψετε κάθε n-οστή γραμμή (στην προκειμένη περίπτωση κάθε 3η γραμμή) ακολουθώντας αυτή τη μέθοδο.

Βήμα-01 :

➤Follow Βήμα-01 του Μέθοδος-1

 Sub dltrow7() rc = Range("B5:D13").Rows.Count For i = rc To 1 Step -3 Range("B5:D13").Rows(i).EntireRow.Delete Next i End Sub 

"B5:D13" είναι το εύρος δεδομένων και rc θα επιστρέψει τον συνολικό αριθμό γραμμών αυτής της περιοχής που είναι 9 .

Εδώ, η ΓΙΑ ο βρόχος θα ξεκινήσει από την τελευταία γραμμή που είναι rc ή 9 σε αυτή την περίπτωση και τελειώνει με την πρώτη σειρά.

Βήμα -3 θα σας βοηθήσει να διαγράψετε κάθε 3η σειρά σε αυτό το εύρος.

➤Press F5

Αποτέλεσμα :

Στη συνέχεια, θα διαγράψετε τις γραμμές που περιέχουν το Προϊόν ονόματα Παπούτσι 1 , Παπούτσι2, και Παπούτσι3 .

Διαβάστε περισσότερα: Πώς να διαγράψετε κάθε νιοστή γραμμή στο Excel (ευκολότεροι 6 τρόποι)

Παρόμοιες αναγνώσεις:

• Πώς να διαγράψετε επιλεγμένες σειρές με το Excel VBA (μια καθοδήγηση βήμα προς βήμα)
• Διαγραφή αχρησιμοποίητων σειρών στο Excel (8 εύκολοι τρόποι)
• Πώς να διαγράψετε κρυφές γραμμές στο Excel (3 μέθοδοι)
• Διαγραφή άπειρων σειρών στο Excel (5 εύκολοι τρόποι)
• Πώς να διαγράψετε σειρές στο Excel που συνεχίζουν για πάντα (4 εύκολοι τρόποι)

Μέθοδος-8: Διαγραφή γραμμής με βάση την τιμή κελιού

Σε αυτή τη μέθοδο, θα διαγράψω τη γραμμή που έχει μια συγκεκριμένη τιμή Πουκάμισο 2 .

Βήμα-01 :

➤Follow Βήμα-01 του Μέθοδος-1

 Sub dltrow8() Dim cell As Range For Each cell In Range("B5:D13") If cell.Value = "Shirt 2" Then cell.EntireRow.Delete End If Next cell End Sub 

"B5:D13" είναι το εύρος δεδομένων και το ΓΙΑ βρόχος θα λειτουργήσει για κάθε κελί σε αυτό το εύρος.

Εάν οποιοδήποτε κελί μιας γραμμής περιέχει την τιμή "Πουκάμισο 2" τότε η γραμμή θα διαγραφεί.

➤Press F5

Αποτέλεσμα :

Με αυτόν τον τρόπο, θα διαγράψετε τη γραμμή που περιέχει το Προϊόν όνομα Πουκάμισο 2 .

Διαβάστε περισσότερα: Μακροεντολή VBA για τη διαγραφή γραμμής εάν το κελί περιέχει τιμή στο Excel (2 μέθοδοι)

Μέθοδος-9: Διαγραφή διπλών σειρών

Εδώ, έχω δύο γραμμές που έχουν ένα Κωδικός προϊόντος 97375 και έτσι θέλω να διαγράψω μια από αυτές τις γραμμές που επισημαίνονται με ένα κόκκινο πλαίσιο παρακάτω.

Βήμα-01 :

➤Follow Βήμα-01 του Μέθοδος-1

 Sub dltrow9() Range("B5:D13").RemoveDuplicates Columns:=1 End Sub 

Ορίστε, "B5:D13" είναι το εύρος δεδομένων και Στήλες:=1 σημαίνει ότι θα ψάξει για διπλές τιμές μόνο σε μία στήλη που είναι η αρχική στήλη Στήλη Β αλλά αν θέλετε να κάνετε αναζήτηση και σε άλλες στήλες, μπορείτε να χρησιμοποιήσετε αυτόν τον αριθμό ανάλογα με τις ανάγκες σας.

➤Press F5

Αποτέλεσμα :

Στη συνέχεια, θα μπορείτε να διαγράψετε τη γραμμή που είναι παρόμοια με μια άλλη γραμμή.

Διαβάστε περισσότερα: Πώς να διαγράψετε διπλές γραμμές στο Excel με VBA (8 αποτελεσματικοί τρόποι)

Μέθοδος-10: Διαγραφή γραμμών σε πίνακα

Ας υποθέσουμε ότι έχετε τον ακόλουθο πίνακα του οποίου το όνομα είναι Πίνακας1 και τώρα θέλετε να διαγράψετε τη γραμμή 6 του πίνακα αυτού. Για να το κάνετε αυτό μπορείτε να ακολουθήσετε την εξής μέθοδο.

Βήμα-01 :

➤Follow Βήμα-01 του Μέθοδος-1

 Sub dltrow10() ActiveWorkbook.Worksheets("Table").ListObjects("Table1").ListRows(6).Delete End Sub 

Ορίστε, "Πίνακας" είναι το όνομα του φύλλου, "Table1" είναι το όνομα του πίνακα και 6 είναι ο αριθμός γραμμής του πίνακα που θέλετε να διαγράψετε.

➤Press F5

Αποτέλεσμα :

Με αυτόν τον τρόπο, θα διαγράψετε την επιθυμητή γραμμή αυτού του πίνακα.

Διαβάστε περισσότερα: Πώς να αφαιρέσετε διπλές σειρές με βάση μια στήλη χρησιμοποιώντας το Excel VBA

Μέθοδος-11: Διαγραφή ορατών σειρών μετά από φιλτράρισμα

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

Βήμα-01 :

➤Follow Βήμα-01 του Μέθοδος-1

 Sub dltrow11() Range("B5:D13").SpecialCells(xlCellTypeVisible).EntireRow.Delete End Sub 

Ορίστε, "B5:D13" είναι το εύρος δεδομένων.

➤Press F5

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

➤Click on the Επιλέξτε όλα επιλογή

➤Press OK

Αποτέλεσμα :

Τέλος, θα έχετε τις κρυμμένες γραμμές πίσω στον πίνακα δεδομένων.

Διαβάστε περισσότερα: Πώς να φιλτράρετε και να διαγράφετε σειρές με VBA στο Excel (2 μέθοδοι)

Μέθοδος-12: Διαγραφή γραμμής με βάση το τελευταίο ενεργό κελί

Εδώ, το τελευταίο ενεργό κελί μου είναι το κελί B13 και θέλω να το διαγράψω έχοντας το τελευταίο ενεργό κελί του ακόλουθου πίνακα δεδομένων.

Βήμα-01 :

➤Follow Βήμα-01 του Μέθοδος-1

 Sub dltrow12() Cells(Rows.Count, 2).End(xlUp).EntireRow.Delete End Sub 

Ορίστε, 2 σημαίνει Στήλη Β στο οποίο έχω το ενεργό μου κινητό, μπορείτε να αλλάξετε τον αριθμό ανάλογα με τις ανάγκες σας.

➤Press F5

Αποτέλεσμα :

Με αυτόν τον τρόπο, θα διαγράψετε την τελευταία ενεργή γραμμή σας.

Διαβάστε περισσότερα: Κώδικας VBA του Excel για τη διαγραφή σειρών με βάση την τιμή πολλαπλών κελιών (3 κριτήρια)

Μέθοδος-13: Διαγραφή σειρών που έχουν οποιεσδήποτε συμβολοσειρές

Ας υποθέσουμε ότι θέλετε να διαγράψετε τις γραμμές που έχουν οποιαδήποτε συμβολοσειρά, και για να το κάνετε αυτό μπορείτε να ακολουθήσετε αυτή τη μέθοδο.

Βήμα-01 :

➤Follow Βήμα-01 του Μέθοδος-1

 Sub dltrow13() Dim FirstRow As Long Dim LastRow As Long Dim FirstColumn As Long Dim LastColumn As Long Dim sheet As Worksheet Dim Rng As Range FirstRow = 5 FirstColumn = 2 Set sheet = Worksheets("String") With sheet With .Cells LastRow = .Find(What:="*", LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row LastColumn = .Find(What:="*",LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column End With Set Rng = .Range(.Cells(FirstRow, FirstColumn), .Cells(LastRow, LastColumn)) End With On Error Resume Next Rng.SpecialCells(xlCellTypeConstants, xlTextValues).EntireRow.Delete End Sub 

Ορίστε, "string" είναι το όνομα του φύλλου, ο αριθμός της πρώτης σειράς αυτής της περιοχής δεδομένων είναι 5 και ο αρχικός αριθμός στήλης είναι 2

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

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

LastRow και LastColumn επιστρέφει την τελευταία γραμμή και στήλη του εύρους δεδομένων.

SpecialCells(xlCellTypeConstants, xlTextValues) θα επιλέξει τις γραμμές που έχουν οποιεσδήποτε τιμές κειμένου στην περιοχή.

➤Press F5

Αποτέλεσμα :

Στη συνέχεια, θα διαγράψετε τις γραμμές που έχουν οποιαδήποτε συμβολοσειρά κειμένου.

Διαβάστε περισσότερα: Συντόμευση του Excel για τη διαγραφή γραμμών (με τεχνικές μπόνους)

Μέθοδος-14: Διαγραφή γραμμής με βάση τις ημερομηνίες

Εδώ, θα διαγράψω τις γραμμές που έχουν μια ειδική ημερομηνία 11/12/2021 (mm/dd/yyyy) σε αυτή τη μέθοδο χρησιμοποιώντας το Συνάρτηση DATEVALUE .

Βήμα-01 :

➤Follow Βήμα-01 του Μέθοδος-1

 Sub dltrow14() Dim FirstRow As Long Dim LastRow As Long Dim CriteriaColumn As Long Dim myDate As Date Dim sheet As Worksheet Dim i As Long Dim myRowsWithDate As Range FirstRow = 5 CriteriaColumn = 3 myDate = DateValue("11/12/2021") Set sheet = Worksheets("Date") With sheet LastRow = .Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _ SearchOrder:=xlByRows,SearchDirection:=xlPrevious).Row For i = LastRow To FirstRow Step -1 With .Cells(i, CriteriaColumn) If .Value = myDate Then If Not myRowsWithDate Is Nothing Then Set myRowsWithDate = Union(myRowsWithDate, .Cells) Else Set myRowsWithDate = .Cells End If End If End WithNext i End With If Not myRowsWithDate Is Nothing Then myRowsWithDate.EntireRow.Delete End Sub 

Ορίστε, "Ημερομηνία" είναι το όνομα του φύλλου, ο αριθμός της πρώτης σειράς αυτής της περιοχής δεδομένων είναι 5 και ο αριθμός της στήλης κριτηρίων (η οποία στήλη έχει ημερομηνίες) είναι 3 .

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

On Error Resume Next καθορίζει ότι, όταν εμφανίζεται ένα σφάλμα χρόνου εκτέλεσης, ο έλεγχος πηγαίνει στη δήλωση που ακολουθεί τη δήλωση στην οποία εμφανίζεται το σφάλμα.

LastRow επιστρέφει την τελευταία γραμμή του εύρους δεδομένων και εδώ, το ΓΙΑ ο βρόχος θα ξεκινήσει από την τελευταία σειρά που είναι LastRow ή 6 σε αυτή την περίπτωση, και τελειώνει με την πρώτη σειρά.

DATEVALUE θα μετατρέψει την ημερομηνία κειμένου σε τιμή.

Ορίστε, Ένωση θα επιστρέψει την ένωση πολλαπλών περιοχών που αντιστοιχούν στα κελιά που έχουν την ημερομηνία 11/12/2021 , και τέλος, οι σειρές θα διαγραφούν.

➤Press F5

Αποτέλεσμα :

Μετά από αυτό, θα διαγράψετε τις γραμμές που έχουν μια συγκεκριμένη ημερομηνία 11/12/2021 .

Σχετικό περιεχόμενο: Excel VBA για τη διαγραφή σειρών με συγκεκριμένα δεδομένα (9 παραδείγματα)

Τμήμα πρακτικής

Για να εξασκηθείτε μόνοι σας, σας παρέχουμε ένα Πρακτική τμήμα όπως παρακάτω σε ένα φύλλο με όνομα Πρακτική . Παρακαλώ κάντε το μόνοι σας.

Συμπέρασμα

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