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

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

Οι χρήστες του Excel συχνά απαιτείται να αντιγράψουν και να επικολλήσουν δεδομένα. Ωστόσο, μερικές φορές, μπορεί να υπάρχουν κάποια προβλήματα. Για παράδειγμα, υπάρχουν πολλά ασυνεχή κενά κελιά σε ένα φύλλο εργασίας του Excel. Σε αυτήν την περίπτωση, είναι λίγο δύσκολο να επιλέξετε όλα τα κελιά που έχουν περιεχόμενο. Όμως, μην ανησυχείτε. Εδώ θα σας μοιραστούμε 2 προσεγγίσεις για να επιλέξετε όλα τα κενά κελιά σε ένα φύλλο Excel.

Μέθοδος 1: Επιλέξτε μέσω "Μετάβαση σε ειδικό"

1. Στην αρχή, ανοίξτε το φύλλο εργασίας του Excel.
2. Στη συνέχεια, πατήστε "F5" για να ενεργοποιήσετε το παράθυρο διαλόγου "Μετάβαση σε".
3. Στο παράθυρο διαλόγου "Μετάβαση σε", κάντε κλικ στο κουμπί "Ειδικό".
4. Στη συνέχεια, ελέγξτε την επιλογή "Σταθερές" και στη συνέχεια τις επιλογές "Αριθμοί", "Κείμενο", "Λογικές" και "Σφάλματα".
5. Τέλος, κάντε κλικ στο "OK".
6. Όταν κλείνει το παράθυρο διαλόγου, όπως βλέπετε, έχουν επιλεγεί όλα τα μη κενά κελιά.

Μέθοδος 2: Επιλέξτε με το Excel VBA

1. Πρώτα απ 'όλα, αποκτήστε πρόσβαση στον επεξεργαστή Excel VBA με αναφορά στο "Πώς να εκτελέσετε τον κώδικα VBA στο Excel σας".
2. Στη συνέχεια, τοποθετήστε τον ακόλουθο κώδικα σε μια μονάδα που δεν χρησιμοποιείται.

Sub SelectAllNonBlankCells()
    Dim objUsedRange As Range
    Dim objRange As Range
    Dim objNonblankRange As Range

    Set objUsedRange = Application.ActiveSheet.UsedRange

    For Each objRange In objUsedRange
        If Not (objRange.Value = "") Then
           If objNonblankRange Is Nothing Then
              Set objNonblankRange = objRange
           Else
              Set objNonblankRange = Application.Union(objNonblankRange, objRange)
           End If
        End If
    Next

    If Not (objNonblankRange Is Nothing) Then
       objNonblankRange.Select
    End If
End Sub

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

Σύγκριση

Επιδιόρθωση ενοχλητικών προβλημάτων του Excel

Το αρχείο Excel είναι επιρρεπές σε σφάλματα και καταστροφή. Για παράδειγμα, εάν το MS Excel κλείνει συχνά ακατάλληλα, το αρχείο μπορεί να καταστραφεί εύκολα. Ως εκ τούτου, οι χρήστες πρέπει να κάνουν ορισμένες προφυλάξεις, συμπεριλαμβανομένης της δημιουργίας αντιγράφων ασφαλείας των αρχείων σε περιοδική βάση. Επιπλέον, ένας ικανός, στιβαρός και αξιόπιστος xlsx διόρθωση εργαλείο, όπως DataNumen Excel Repair, είναι θέμα αναγκαιότητας.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων SQL Server ανάκτηση και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com