Πίνακας περιεχομένων
Κατά τη δημιουργία ενός μεγάλου φύλλου εργασίας είναι πολύ πιθανό να υπάρχουν κάποια επιπλέον κενά στα περιεχόμενά του. Για να δημιουργήσετε ένα εξαιρετικό φύλλο εργασίας χρειάζεται να αφαιρέστε τα επιπλέον κενά Σε αυτό το άρθρο, θα εξηγήσω πώς να αφαιρέσετε τα κορυφαία διαστήματα στο Excel .
Για να κάνω αυτή την εξήγηση πιο αποτελεσματική για εσάς θα χρησιμοποιήσω ένα δείγμα συνόλου δεδομένων που έχει 3 στήλες που αντιπροσωπεύουν το πλήρες όνομα ενός ατόμου μαζί με το όνομα και το επώνυμο. Οι στήλες αυτές είναι οι εξής Όνομα, Επώνυμο , και Ονοματεπώνυμο .
Εδώ για να δημιουργήσετε το Πλήρες Όνομα από το Όνομα και το Επώνυμο που χρησιμοποίησα τη συνάρτηση CONCAT.
Λήψη για πρακτική
Αφαίρεση κορυφαίων διαστημάτων στο Excel.xlsm4 τρόποι για να αφαιρέσετε κορυφαία κενά στο excel
1. Χρήση της λειτουργίας TRIM
Μπορείτε να χρησιμοποιήσετε η λειτουργία TRIM για την αφαίρεση των αρχικών διαστημάτων, αν και το TRIM η συνάρτηση όχι μόνο αφαιρεί τα κενά αλλά και αφαιρεί το πίσω μέρος του και διπλά διαστήματα.
Αρχικά, επιλέξτε το κελί στο οποίο θέλετε να τοποθετήσετε την τιμή που προκύπτει.
➤ Επέλεξα το κελί E4
Δεύτερον, πληκτρολογήστε τον ακόλουθο τύπο στο κελί ή στο πεδίο Μπαρ φόρμουλας .
=TRIM(D4) 
Τέλος, πατήστε ENTER .
Τώρα, θα εμφανίσει το αποτέλεσμα αφαιρώντας όλα τα επιπλέον κενά.
Αργότερα, μπορείτε να χρησιμοποιήσετε το Χειρολαβή πλήρωσης στο AutoFill τύπο για τα υπόλοιπα κελιά.
1.1. Αφαίρεση αρχικών διαστημάτων από τιμές κειμένου
Αν θέλετε να αφαιρέσετε μόνο τα κενά στην αρχή ενός κειμένου, τότε μπορείτε να χρησιμοποιήσετε την εντολή TRIM συνάρτηση με η λειτουργία MID και η λειτουργία FIND Η σύντηξη αυτών των συναρτήσεων θα υπολογίσει τη θέση του πρώτου χαρακτήρα κειμένου μιας συμβολοσειράς. Εδώ χρησιμοποίησα επίσης το η συνάρτηση LEN για τον υπολογισμό του μήκους της συμβολοσειράς.
Για να χρησιμοποιήσετε αυτές τις συναρτήσεις σε έναν τύπο, επιλέξτε πρώτα το κελί στο οποίο θέλετε να τοποθετήσετε το αποτέλεσμά σας.
➤ Επέλεξα το κελί E4
Δεύτερον, πληκτρολογήστε τον ακόλουθο τύπο στο κελί ή στο πεδίο Μπαρ φόρμουλας .
=MID(D4,FIND(MID(TRIM(D4),1,1),D4),LEN(D4)) 
Εδώ, έχω εισάγει D4 ως την τιμή όπου ήθελα να αφαιρέσω τα κενά.
Το ΒΡΕΊΤΕ τμήμα θα ανιχνεύσει τη θέση της πρώτης συμβολοσειράς χαρακτήρων κειμένου και στη συνέχεια το LEN συνάρτηση θα μετρήσει το μήκος της συμβολοσειράς που πρέπει να εξαχθεί μέσω του εξωτερικού MID λειτουργία.
Τέλος, πατήστε ENTER .
Τώρα, θα εμφανίσει το αποτέλεσμα αφαιρώντας μόνο τα πρώτα διαστήματα ενός επιλεγμένου κελιού.
Τώρα, αν θέλετε, μπορείτε να χρησιμοποιήσετε το Χειρολαβή πλήρωσης στο AutoFill τύπο για τα υπόλοιπα κελιά.
1.2. Αφαίρεση αρχικών διαστημάτων από αριθμητικές τιμές
Το TRIM λειτουργεί για αριθμητικές τιμές, αλλά υπάρχει ένα πρόβλημα που αφορά τη μετατροπή του αριθμού σε συμβολοσειρά κειμένου.
Έτσι, αν θέλετε να αφαιρέσετε μόνο τα αρχικά κενά από μια αριθμητική τιμή, τότε μπορείτε να χρησιμοποιήσετε την εντολή TRIM συνάρτηση με η συνάρτηση VALUE .
Για να σας δείξω αυτόν τον τρόπο χρησιμοποιώ ένα σύνολο δεδομένων όπου περιέχει αριθμητικές τιμές των ΤΚ μαζί με Όνομα πόλης.
Αρχικά, επιλέξτε το κελί στο οποίο θέλετε να τοποθετήσετε την προκύπτουσα τιμή σας.
➤ Επέλεξα το κελί D4
Στη συνέχεια, πληκτρολογήστε τον ακόλουθο τύπο στο κελί ή στο πεδίο Μπαρ φόρμουλας .
=VALUE(TRIM(C4)) 
Εδώ, η TRIM αφαιρεί τα κενά στην αρχή από την αριθμητική τιμή στο C4 . ΑΞΙΑ το μετατρέπει σε Μορφή αριθμού .
Τέλος, πατήστε ENTER .
Τελικά, θα αφαιρέσει τα κενά στην αρχή της αριθμητικής τιμής και θα τη μετατρέψει σε μορφή αριθμού.
Αυτή τη στιγμή, αν θέλετε, μπορείτε να χρησιμοποιήσετε το Χειρολαβή πλήρωσης στο AutoFill τύπο για τα υπόλοιπα κελιά.
Διαβάστε περισσότερα: Πώς να αφαιρέσετε τα κενά στο τέλος του Excel
2. Χρήση του TRIM εντός του SUBSTITUTE για την αφαίρεση μη διακεκομμένων αρχικών διαστημάτων
Σε περίπτωση που αντλήσατε κάποιες τιμές από έναν ιστότοπο που αποτελείται από τον χαρακτήρα CHAR (160) τότε υπάρχει η δυνατότητα να έρθουν μη διακεκομμένα κενά με τιμές.
Το TRIM δεν λειτουργεί σωστά με μη διακεκομμένα κενά. Γι' αυτό, μπορείτε να χρησιμοποιήσετε τη συνάρτηση η συνάρτηση SUBSTITUTE για να αφαιρέσετε τα μη διακεκομμένα αρχικά κενά με κανονικούς χαρακτήρες διαστήματος.
Πήρα το ακόλουθο δείγμα δεδομένων του Βιβλίο με όνομα συγγραφέα .
Αρχικά, επιλέξτε το κελί στο οποίο θέλετε να τοποθετήσετε την τιμή που προκύπτει.
➤ Επέλεξα το κελί C4
Στη συνέχεια, πληκτρολογήστε τον ακόλουθο τύπο στο κελί ή στο πεδίο Μπαρ φόρμουλας .
=TRIM(SUBSTITUTE(B4, CHAR(160), "")) 
Εδώ, η ΥΠΟΚΑΤΑΣΤΑΣΗ η συνάρτηση θα αντικαταστήσει όλες τις περιπτώσεις της CHAR(160) με κανονικούς χαρακτήρες διαστήματος από το B4 κελί. Τότε το TRIM θα αφαιρέσει αυτά τα κενά.
Τέλος, πατήστε το ENTER κλειδί.
Τελικά, θα εμφανίσει το αποτέλεσμα αφαιρώντας όλα τα μη διακεκομμένα κενά.
Τέλος, μπορείτε να χρησιμοποιήσετε το Χειρολαβή πλήρωσης στο AutoFill τύπο για τα υπόλοιπα κελιά.
Παρόμοιες αναγνώσεις:
- Αφαίρεση όλων των κενών στο Excel (9 μέθοδοι)
- Πώς να αφαιρέσετε κενά διαστήματα στο Excel (7 τρόποι)
3. Χρήση των FIND και REPLACE
Μπορείτε επίσης να χρησιμοποιήσετε το FIND & REPLACE για να αφαιρέσετε τα κενά.
Για το σκοπό αυτό, επιλέξτε πρώτα το κελί από το οποίο θέλετε να αφαιρέσετε τα κενά στην αρχή.
Στη συνέχεια, ανοίξτε το Αρχική σελίδα καρτέλα>> από Εύρεση & επιλογή >> επιλέξτε το Αντικαταστήστε το
A παράθυρο διαλόγου Εκεί θα πρέπει να βάλετε πόσα κενά θέλετε να αφαιρέσετε σε Βρείτε τι.
Μετά από αυτό, θα πρέπει να βάλετε πόσα κενά θέλετε να αντικαταστήσετε τα υπάρχοντα κενά στο Αντικαταστήστε με.
Αφού βάλετε τα κενά και στα δύο Βρείτε τι και Αντικαταστήστε με . Στη συνέχεια, κάντε κλικ στο Αντικαταστήστε όλα. Θα εμφανιστεί ένα μήνυμα ότι πόσες αντικαταστάσεις συνέβη.
➤ Εδώ θα δείξει 7 αντικαταστάσεις .
Σε περίπτωση που υπάρχουν περισσότερα κενά στο επιλεγμένο κελί σας, τότε μπορείτε να κάνετε κλικ στο Αντικαταστήστε όλα Θα αφαιρέσει τα υπάρχοντα ενδιάμεσα διαστήματα.
➤ Και πάλι αντικατέστησε 3 κενά.
Εδώ, όλα τα κενά στην αρχή αντικαθίστανται με ένα κενό.
3.1. Ενιαίοι χώροι
Αν θέλετε να αφαιρέσετε μόνο τα μεμονωμένα κενά, τότε μπορείτε επίσης να χρησιμοποιήσετε την εντολή FIND & REPLACE εντολή.
Αφού επιλέξετε το κελί από το οποίο θέλετε να αφαιρέσετε τα μεμονωμένα κενά.
Τώρα, ανοίξτε το Αρχική σελίδα καρτέλα>> από Εύρεση & επιλογή >> επιλέξτε το Αντικαταστήστε το
A παράθυρο διαλόγου θα εμφανιστεί από εκεί εισάγετε ένα κενό στο Βρείτε τι και κρατήστε το Αντικαταστήστε με κενό.
Τέλος, κάντε κλικ στο Αντικαταστήστε ΟΛΑ Θα εμφανιστεί ένα μήνυμα που θα δείχνει πόσες αντικαταστάσεις έγιναν. Τώρα, κάντε κλικ στο ΕΝΤΆΞΕΙ.
➤ Εδώ θα εμφανιστεί 24 αντικαταστάσεις .
Εδώ, όλα τα απλά κενά αντικαθίστανται από κανένα κενό.
3.2. Διπλοί χώροι
Από την άλλη πλευρά, αν θέλετε να αφαιρέσετε μόνο τα διπλά αρχικά κενά, τότε μπορείτε να χρησιμοποιήσετε την εντολή FIND & REPLACE εντολή.
Αρχικά, επιλέξτε το κελί από το οποίο θέλετε να αφαιρέσετε τα μεμονωμένα κενά.
Μετά από αυτό, ανοίξτε το Αρχική σελίδα καρτέλα>> από Εύρεση & επιλογή >> επιλέξτε το Αντικαταστήστε το
Τώρα, ένα παράθυρο διαλόγου θα εμφανιστεί από εκεί εισάγετε διπλό διάστημα στο Βρείτε τι και ένα κενό στο Αντικαταστήστε με .
Στη συνέχεια, κάντε κλικ στο Αντικαταστήστε ΟΛΑ Θα εμφανιστεί ένα μήνυμα που θα δείχνει πόσες αντικαταστάσεις έγιναν. Τώρα, κάντε κλικ στο ΕΝΤΆΞΕΙ.
➤ Εδώ θα εμφανιστεί 11 αντικαταστάσεις .
Τέλος, όλα τα διπλά κενά με αρχή αντικαθίστανται από απλά κενά με αρχή.
4. Χρήση της VBA
Για να αφαιρέσετε κορυφαία κενά στο Excel μπορείτε επίσης να χρησιμοποιήσετε Visual Basic .
Πρώτα, ανοίξτε το Προγραμματιστής tab>> στη συνέχεια επιλέξτε Visual Basic.
Στη συνέχεια, θα ανοίξει Microsoft Visual Basic για εφαρμογές.
Τώρα, ανοίξτε Εισαγωγή >> επιλέξτε Ενότητα .
Εδώ, η Ενότητα είναι ανοιχτό.
Μετά από αυτό, γράψτε τον κώδικα για να αφαιρέσετε τα κενά στην αρχή του Ενότητα .
Sub Remove_Leading_Space() Dim Rng As Range Dim SelectedRng As Range On Error Resume Next ExcelTitleId = "Αφαίρεση του κορυφαίου διαστήματος" Set SelectedRng = Application.Selection Set SelectedRng = Application.InputBox("Range", ExcelTitleId, SelectedRng.Address, Type:=8) For Each Rng In SelectedRng Rng.Value = VBA.LTrim(Rng.Value) Next End Sub 
Εδώ έχω πάρει δύο μεταβλητές Rng και SelectedRng , ονόμασε το παράθυρο διαλόγου Αφαίρεση του κορυφαίου διαστήματος στη συνέχεια χρησιμοποίησε ένα Για βρόχο στο TRIM κάθε επιλεγμένο κελί .
Έχω χρησιμοποιήσει η συνάρτηση LTRIM της VBA για να κόψει.
Τέλος, Αποθήκευση τον κώδικα και επιστρέψτε στο φύλλο εργασίας.
Αρχικά, επιλέξτε το κελί ή την περιοχή κελιών για να εφαρμόσετε την VBA
Στη συνέχεια, ανοίξτε το Προβολή καρτέλα>> από Μακροεντολές >> επιλέξτε Προβολή μακροεντολών.
Αυτή τη στιγμή ένα παράθυρο διαλόγου θα εμφανιστεί τώρα επιλέξτε το Μάκρο στη συνέχεια κάντε κλικ στο Εκτέλεση .
Και πάλι, ένα παράθυρο διαλόγου θα εμφανιστεί το επιλεγμένο εύρος και στη συνέχεια κάντε κλικ στο ΕΝΤΆΞΕΙ.
Τώρα, θα αφαιρεθούν τα κενά στην αρχή της επιλεγμένης περιοχής κελιών.
Σημείωση: Πρέπει να θυμάστε ότι ο κώδικας VBA θα αφαιρέσει τα κενά στην αρχή μόνο στην επιλεγμένη περιοχή κελιών, θα αλλάξει τα αρχικά δεδομένα και δεν υποστηρίζει την Αναίρεση. Επιπλέον, αποθηκεύστε ένα αντίγραφο των δεδομένων σας πριν εφαρμόσετε αυτόν τον κώδικα VBA.
Τμήμα πρακτικής
Έχω δώσει ένα φύλλο εξάσκησης στο βιβλίο εργασίας για να εξασκηθείτε σε αυτούς τους εξηγημένους τρόπους αφαίρεσης των αρχικών κενών. Μπορείτε να το κατεβάσετε από το παραπάνω.
Συμπέρασμα
Προσπάθησα να εξηγήσω 4 εύκολους και γρήγορους τρόπους για να αφαιρέσετε τα κορυφαία διαστήματα στο Excel. Αυτοί οι διαφορετικοί τρόποι θα σας βοηθήσουν να αφαιρέσετε τα κορυφαία διαστήματα τόσο από κείμενο όσο και από αριθμητικές τιμές. Τέλος, αν έχετε οποιουδήποτε είδους προτάσεις, ιδέες και σχόλια, μη διστάσετε να σχολιάσετε παρακάτω.
