Πώς να χρησιμοποιήσετε Αν Δήλωση στο Excel για να Διαγραφή Λευκά Γραμμές

Όταν ένα υπολογιστικό φύλλο Excel μεγαλώνει για να συμπεριλάβει χιλιάδες ή ακόμα και εκατοντάδες χιλιάδες , των γραμμών , αφαίρεση με το χέρι κάθε επιμέρους γραμμή θα πάρει για πάντα . Ενώ μια γρήγορη είδους θα κινηθούν απλά κάθε κενή γραμμή στο κάτω μέρος , ουσιαστικά " διαγράφοντας " αυτό, αυτό δεν θα λειτουργήσει , αν χρειάζεστε τα δεδομένα να παραμείνουν στην τρέχουσα σειρά της . Για να καταργήσετε τις κενές γραμμές χωρίς να αλλάζει τη σειρά του ένα φύλλο εργασίας, θα πρέπει να έχουν πρόσβαση σε Visual Basic κονσόλα του Excel και να δημιουργήσετε μια μακροεντολή . Οδηγίες
Η

1 Ανοίξτε το υπολογιστικό φύλλο του Excel που θα πρέπει να θέλετε να εργαστείτε . Στη συνέχεια πατήστε το πλήκτρο " Alt " και " F11 " για να ανοίξει το Visual Basic κονσόλας . 2

δεξί κλικ σε οποιαδήποτε από τις καταχωρήσεις στο " VBAProject " τίτλο στην αριστερή πλευρά της κονσόλας VBA . Μετακινήστε το ποντίκι σας πάνω "Εισαγωγή" και επιλέξτε " Ενότητα " από τη λίστα των επιλογών . Το νέο module σας αυτόματα θα επιλεγεί , και το δεξί μισό της κονσόλας θα γίνει μια κενή λευκή σελίδα . Εάν έχετε πολλά φύλλα ανοιχτά , να είστε βέβαιοι ότι η προσθήκη της μονάδας στη σωστή " VBAProject . " Το όνομα του συγκεκριμένου εγγράφου θα βρίσκεται στα δεξιά του " VBAProject " τίτλο
εικόνων 3

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

DeleteBlankRows Sub ( )

Dim x As Long

με Εφαρμογή

. Υπολογισμός = xlCalculationManual

. ScreenUpdating = False End

με

η " Sub" εντολή δημιουργεί το μακροοικονομικό και το "Dim " εντολή δημιουργεί μια μεταβλητή που θα χρησιμοποιήσετε αργότερα . Οι " Υπολογισμός " και εντολές " ScreenUpdating " απενεργοποιήσετε τις αντίστοιχες λειτουργίες τους , κάνοντας τη μακροεντολή τρέχει ομαλά σε μεγάλες φύλλα
Η 4

Επικολλήστε τον παρακάτω κώδικα ακριβώς κάτω από την τελευταία σειρά : .

με ActiveSheet

Cells.Replace _

Τι : = " " , αντικατάσταση : = " " , _

lookat : = xlWhole , MatchCase : = False

Για x = . Cells.SpecialCells ( xlCellTypeLastCell ) . Row _

Για 1 Step -1

Εάν WorksheetFunction.CountA ( . Γραμμές ( x ) ) = 0 τότε

ActiveSheet.Rows ( x ) . Διαγραφή

End If

Επόμενο

End With

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

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα ακριβώς κάτω από το τελευταίο κομμάτι του κώδικα : .

Με την εφαρμογή

. Υπολογισμός = xlCalculationAutomatic

. ScreenUpdating = True

End With

End Sub

Ο κώδικας αυτός απλά βάζει το " Υπολογισμός " και " ScreenUpdating " Ρυθμίσεις πίσω σε κανονικό και στη συνέχεια κλείνει με τον κωδικό " End sub ​​. " Πατήστε το πλήκτρο " Alt " και " F11 " για να βγείτε από την κονσόλα VBA . Όλες οι αλλαγές σας αποθηκεύονται αυτόματα .
Η

6 Κάντε κλικ στην καρτέλα "Προγραμματιστής " στην κορυφή της οθόνης . Κάντε κλικ στο κουμπί "Macro " για να εμφανιστεί μια λίστα με τις μακροεντολές σας . Επιλέξτε το " DeleteBlankRows " μακρο-και πατήστε " Run". Η μακροεντολή θα διαγράψει όλες τις κενές γραμμές από το φύλλο εργασίας σας .
Η
εικόνων