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

1. Τύπος άλλος + F11 ταυτόχρονα για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Applications.

2. Εισαγάγετε μια ενότητα κάνοντας κλικ στο Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή VBA στη λειτουργική μονάδα.

VBA: Διαγράψτε ολόκληρη τη σειρά εάν τα κελιά είναι κενά σε μια στήλη

Sub DeleteBlackCell()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeBlanks)
If Err = 0 Then
WorkRng.EntireRow.Delete
End If
End Sub

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

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

Μερικές φορές μπορεί να χρειαστεί να διαγράψετε ολόκληρες σειρές εάν τα κελιά στην καθορισμένη στήλη περιέχουν συγκεκριμένο περιεχόμενο. Σε αυτήν την περίπτωση, μπορείτε να εφαρμόσετε το βοηθητικό πρόγραμμα Kutools for Excel's Select Specific Cells για να το λύσετε εύκολα στο Excel.

1. Επιλέξτε τη στήλη όπου εάν τα κελιά περιέχουν καθορισμένο περιεχόμενο θα διαγράψετε τις αντίστοιχες σειρές και κάντε κλικ Kutools > Αγορά > Επιλέξτε συγκεκριμένα κελιά.

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

(1) Ελέγξτε το Ολόκληρες σειρές επιλογή του Τύπος επιλογής Ενότητα;

(2) Επιλέξτε το Περιέχει από την πρώτη αναπτυσσόμενη λίστα στο Ειδικός τύπος Ενότητα;

(3) Πληκτρολογήστε το συγκεκριμένο περιεχόμενο στο ακόλουθο πλαίσιο.

(4) Κάντε κλικ στο Ok κουμπί.

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

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

Και στη συνέχεια όλες οι επιλεγμένες σειρές διαγράφονται ταυτόχρονα. Δείτε το στιγμιότυπο οθόνης:

Πώς να αποφύγετε την αποθήκευση εάν ένα συγκεκριμένο κελί είναι κενό στο Excel;

Πώς να επισημάνετε τη σειρά εάν το κελί περιέχει κείμενο / τιμή / κενό στο Excel;

Πώς να μην υπολογίσετε (αγνοήστε τον τύπο) εάν το κελί είναι κενό στο Excel;

Πώς να χρησιμοποιήσετε τη λειτουργία IF με AND, OR και NOT στο Excel;

Πώς να εμφανίσετε μηνύματα προειδοποίησης / ειδοποίησης εάν τα κελιά είναι κενά στο Excel;

Πώς να εισαγάγετε / εμφανίσετε κείμενο ή μήνυμα εάν τα κελιά είναι κενά στο Excel;