Πώς να κεφαλαιοποιήσετε το πρώτο γράμμα μιας συμβολοσειράς κειμένου στο Excel (χρησιμοποιώντας τον τύπο και το VBA)

Εκτός από τη χρήση του Excel με αριθμητικά δεδομένα, πολλοί άνθρωποι το χρησιμοποιούν και με δεδομένα κειμένου. Θα μπορούσε να είναι τόσο απλό όσο η καταγραφή των ονομάτων σε κάτι πιο περίπλοκο.

Όταν εργάζεστε με δεδομένα κειμένου, ένα κοινό καθήκον είναι να κάνετε τα δεδομένα συνεπή, κεφαλαιοποιώντας το πρώτο γράμμα σε κάθε κελί (ή να κεφαλαιοποιήσετε το πρώτο γράμμα κάθε λέξης σε όλα τα κελιά)

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

Ας ξεκινήσουμε λοιπόν!

Με κεφαλαίο γράμμα το πρώτο γράμμα χρησιμοποιώντας τον τύπο

Μπορεί να υπάρχουν δύο σενάρια όπου θέλετε να αξιοποιήσετε:

  1. Το πρώτο γράμμα κάθε λέξης
  2. Μόνο το πρώτο γράμμα της πρώτης λέξης

Να γράψετε με κεφαλαίο γράμμα το πρώτο γράμμα κάθε λέξης

Αυτό είναι αρκετά εύκολο να γίνει - καθώς το Excel έχει μια ειδική λειτουργία για αυτό.

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

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

Παρακάτω είναι ο τύπος που μπορείτε να χρησιμοποιήσετε:

= ΚΑΤΑΛΛΗΛΟΣ (Α2)

Αυτό θα κεφαλαία το πρώτο γράμμα κάθε λέξης στο κελί που αναφέρεται.

Αρκετά απλή!

Μόλις έχετε το επιθυμητό αποτέλεσμα, μπορείτε να αντιγράψετε τα κελιά που έχουν τον τύπο και να τα επικολλήσετε ως τιμές, ώστε να μην είναι πλέον συνδεδεμένα μεταξύ τους.

Να γράψετε κεφαλαία μόνο το πρώτο γράμμα της πρώτης λέξης μόνο

Αυτό είναι λίγο πιο δύσκολο από το προηγούμενο - καθώς δεν υπάρχει ενσωματωμένος τύπος στο Excel για να κεφαλαιοποιήσετε μόνο το πρώτο γράμμα της πρώτης λέξης.

Ωστόσο, μπορείτε ακόμα να το κάνετε αυτό (εύκολα) με έναν συνδυασμό τύπων.

Και πάλι, θα μπορούσαν να υπάρχουν δύο σενάρια όπου θέλετε να το κάνετε αυτό:

  1. Με κεφαλαίο γράμμα το πρώτο γράμμα της πρώτης λέξης και αφήστε τα πάντα ως έχουν
  2. Με κεφαλαίο γράμμα το πρώτο γράμμα της πρώτης λέξης και άλλαξε το υπόλοιπο σε πεζά (καθώς μπορεί να υπάρχει ήδη κάποιο πεζό)

Οι τύποι που χρησιμοποιούνται για κάθε μία από αυτές τις περιπτώσεις θα είναι διαφορετικοί.

Ας δούμε πώς να το κάνουμε αυτό!

Κεφαλαιοποιήστε το πρώτο γράμμα της πρώτης λέξης και αφήστε τα πάντα όπως είναι

Ας υποθέσουμε ότι έχετε το παρακάτω σύνολο δεδομένων και θέλετε να γράψετε μόνο το πρώτο γράμμα (και αφήστε τα υπόλοιπα ως έχουν).

Παρακάτω είναι ο τύπος που θα το κάνει αυτό:

= ΑΝΩ (ΑΡΙΣΤΕΡΑ (Α2,1)) & ΔΕΞΙΑ (Α2, ΦΑΚΟΣ (Α2) -1)

Ο παραπάνω τύπος χρησιμοποιεί τη συνάρτηση ΑΡΙΣΤΕΡΑ για να εξαγάγει τον πρώτο χαρακτήρα από τη συμβολοσειρά στο κελί. Στη συνέχεια, χρησιμοποιεί τη συνάρτηση UPPER για να αλλάξει την πεζά του πρώτου γράμματος στο επάνω μέρος. Στη συνέχεια, συνδέει την υπόλοιπη συμβολοσειρά (η οποία εξάγεται χρησιμοποιώντας τη συνάρτηση RIGHT).

Ετσι. εάν υπάρχουν λέξεις που έχουν ήδη γράψει κεφαλαία αλφάβητα, αυτές δεν θα αλλάξουν. Μόνο το πρώτο γράμμα θα ήταν κεφαλαίο.

Με κεφαλαίο γράμμα το πρώτο γράμμα της πρώτης λέξης και άλλαξε το υπόλοιπο σε πεζά

Ένα άλλο σενάριο μπορεί να είναι το σημείο όπου θέλετε να αλλάξετε την πεζά μόνο του πρώτου γράμματος της πρώτης λέξης και να τα κρατήσετε όλα με πεζά. Αυτό θα μπορούσε να συμβαίνει όταν στέλνετε κείμενο που θέλετε να μετατρέψετε σε κεφαλαία πρόταση.

Σε αυτό το σενάριο, ενδέχεται να λάβετε ορισμένα κελιά όπου το υπόλοιπο κείμενο δεν είναι ήδη πεζό, οπότε θα πρέπει να αναγκάσετε το κείμενο να μετατραπεί σε πεζά και στη συνέχεια να χρησιμοποιήσετε έναν τύπο για να γράψετε κεφαλαία το πρώτο γράμμα.

Ας υποθέσουμε ότι έχετε το σύνολο δεδομένων παρακάτω:

Παρακάτω είναι ο τύπος που θα κεφαλαιοποιήσει το πρώτο γράμμα της πρώτης λέξης και θα αλλάξει το υπόλοιπο σε πεζά:

= ΑΝΤΙΚΑΤΑΣΤΑΣΗ (ΚΑΤΩ (Α2), 1,1, ΑΝΩ (ΑΡΙΣΤΕΡΑ (Α2,1)))

Επιτρέψτε μου να εξηγήσω πώς λειτουργεί αυτός ο τύπος:

  • LOWER (A2) - Αυτό μετατρέπει ολόκληρο το κείμενο σε πεζά
  • ΑΝΩ ​​(ΑΡΙΣΤΕΡΑ (Α2,1) - Αυτό μετατρέπει το πρώτο γράμμα της συμβολοσειράς κειμένου στο κελί σε κεφαλαία.
  • Η συνάρτηση REPLACE χρησιμοποιείται για να αντικαταστήσει μόνο τον πρώτο χαρακτήρα με την κεφαλαία έκδοση του.
Ένα από τα οφέλη της χρήσης ενός τύπου είναι ότι διατηρεί τα δεδομένα που προκύπτουν δυναμικά. Για παράδειγμα, εάν έχετε τον τύπο στη θέση του και κάνετε οποιεσδήποτε αλλαγές στα δεδομένα στη στήλη Α (τα αρχικά δεδομένα κειμένου), τα δεδομένα που προκύπτουν θα ενημερώνονται αυτόματα. Σε περίπτωση που δεν θέλετε τα αρχικά δεδομένα και θέλετε να διατηρήσετε μόνο το τελικό αποτέλεσμα, φροντίστε να μετατρέψετε τον τύπο σε τιμές

Με κεφαλαίο γράμμα το πρώτο γράμμα χρησιμοποιώντας το VBA

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

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

Με αυτόν τον τρόπο, την επόμενη φορά που θα χρειαστεί να κεφαλαιοποιήσετε το πρώτο γράμμα, το μόνο που χρειάζεται να κάνετε είναι να επιλέξετε το σύνολο δεδομένων και να κάνετε κλικ στο κουμπί μακροεντολής στο QAT.

Μπορείτε ακόμη να δημιουργήσετε ένα πρόσθετο και να χρησιμοποιήσετε τον κώδικα VBA σε όλα τα βιβλία εργασίας σας (και μπορείτε ακόμη και να τα μοιραστείτε με τους συναδέλφους σας).

Τώρα επιτρέψτε μου να σας δώσω τους κωδικούς VBA.

Ο παρακάτω κώδικας θα κεφαλαιοποιήσει το πρώτο γράμμα της πρώτης λέξης και θα αφήσει τα πάντα ως έχουν:

Sub CapitalizeFirstLetter () Dim Sel As Range Set Sel = Επιλογή για κάθε κελί στο κελί Sel.Value = UCase (Αριστερά (κελί. Τιμή, 1)) & Δεξιά (κελί. Τιμή, Len (κελί. Τιμή) - 1) Επόμενο κελί Τέλος υπο

Και παρακάτω είναι ο κώδικας που θα κεφαλαιοποιήσει το πρώτο γράμμα του κειμένου και θα κάνει όλα τα άλλα με πεζά:

Sub CapitalizeFirstLetter () Dim Sel As Range Set Sel = Επιλογή για κάθε κελί στο κελί Sel. Value = Application.WorksheetFunction.Replace (LCase (cell.Value), 1, 1, UCase (Αριστερά (cell.Value, 1)))) Επόμενο κελί Τέλος υπο

Πρέπει να τοποθετήσετε αυτόν τον κωδικό VBA σε μια κανονική μονάδα στο VB Editor

Αυτές είναι μερικές μέθοδοι που μπορείτε να χρησιμοποιήσετε για να γράψετε το πρώτο γράμμα στα κελιά του Excel. Με βάση το σενάριο, μπορείτε να επιλέξετε τη μέθοδο τύπου ή τη μέθοδο VBA.

Ελπίζω να βρήκατε χρήσιμο αυτό το σεμινάριο Excel.

wave wave wave wave wave