Πώς να αφαιρέσετε όλα τα κενά κελιά
Θέλετε να διαγράψετε όλα τα κελιά στον ενεργό πίνακα που είναι κενά; Αυτό δεν είναι πρόβλημα με μια μακροεντολή. Η ακόλουθη μακροεντολή διαγράφει όλα τα κενά κελιά στον ενεργό πίνακα:
Sub EmptyDelete ()
ActiveSheet.UsedRange.SpecialCells (xlCellTypeBlanks). Επιλέξτε
Επιλογή. Διαγραφή Shift: = xlUp
Τέλος υπο
Η μακροεντολή αναζητά αυτόματα όλα τα κενά κελιά στην περιοχή χρήστη του ενεργού πίνακα και διαγράφει αυτά τα κελιά. Τα κελιά κάτω από αυτό μετατοπίζονται προς τα πάνω. Έτσι παίρνετε έναν εξαιρετικά συμπιεσμένο πίνακα.