Πίνακας περιεχομένων
Διαγραφή κενών σειρών
Ο προφανής τρόπος για να αφαιρέσετε κενές σειρές από ένα σύνολο δεδομένων είναι να ταξινομήσετε απλά τα δεδομένα. Αυτό μετακινεί τις κενές σειρές στο κάτω μέρος των δεδομένων και τις "αφαιρεί". Τι γίνεται όμως εάν θέλετε να αφαιρεθούν οι κενές σειρές, ωστόσο δεν θέλετε να ταξινομηθούν τα δεδομένα; VBA.
Η ακόλουθη μακροεντολή θα αφαιρέσει κενές σειρές χωρίς καμία ταξινόμηση (απενεργοποιήστε την ενημέρωση οθόνης για να προχωρήσετε γρηγορότερα).
Sub DeleteBlankRows () Dim x Όσο καιρό με το ActiveSheet Για x = .Cells.SpecialCells (xlCellTypeLastCell). Μέχρι 1 Βήμα -1 Αν WorksheetFunction.CountA (.Rows (x)) = 0 Στη συνέχεια ActiveSheet.Rows (x). Διαγραφή Τέλους Αν Επόμενο Τέλος με Τέλος Υπο
