Πώς να βρείτε γρήγορα τη θέση του πρώτου κεφαλαίου στη συμβολοσειρά κειμένου του Excel;
Ας υποθέσουμε ότι υπάρχει μια λίστα συμβολοσειρών κειμένου αναμεμιγμένων με αριθμούς, κεφαλαία και πεζά γράμματα, πώς μπορείτε να βρείτε γρήγορα τη θέση του πρώτου κεφαλαίου γράμματος από τις συμβολοσειρές; Σε αυτό το άρθρο, παρουσιάζω τα κόλπα που μπορούν γρήγορα να καθορίσουν τη θέση της πρώτης κεφαλαίας κεφαλής χωρίς να τα μετρήσω ένα προς ένα χειροκίνητα στο Excel.
Βρείτε τη θέση του πρώτου κεφαλαίου με συμβολοσειρά με τύπο
Βρείτε τη θέση του πρώτου κεφαλαίου σε συμβολοσειρά με καθορισμένη συνάρτηση
Αλλάξτε όλα τα γράμματα σε UPPERCASE ή Proper Case με το Kutools για Excel 
Βρείτε τη θέση του πρώτου κεφαλαίου με συμβολοσειρά με τύπο
Εδώ είναι ένας τύπος που μπορεί να σας βοηθήσει να βρείτε γρήγορα τη θέση του πρώτου κεφαλαίου από τη συμβολοσειρά, κάντε τα παρακάτω:
Επιλέξτε ένα κενό κελί δίπλα στη συμβολοσειρά που θέλετε να βρείτε το πρώτο κεφαλαίο, για παράδειγμα, B1, εισαγάγετε αυτόν τον τύπο =MIN(IF(ISERROR(FIND(CHAR(ROW(INDIRECT("65:90"))),A1)),"",FIND(CHAR(ROW(INDIRECT("65:90"))),A1)))
Τύπος Shift + Ctrl + Enter κλειδί για να λάβετε το σωστό αποτέλεσμα και, στη συνέχεια, σύρετε τη λαβή αυτόματης πλήρωσης πάνω από τα κελιά που χρειάστηκαν για την εφαρμογή αυτού του τύπου. Δείτε το στιγμιότυπο οθόνης:
Βρείτε τη θέση του πρώτου κεφαλαίου σε συμβολοσειρά με καθορισμένη συνάρτηση
Εκτός από τον τύπο, μπορείτε επίσης να χρησιμοποιήσετε την καθορισμένη συνάρτηση για να μάθετε τη θέση του πρώτου κεφαλαίου στη συμβολοσειρά.
1. Ενεργοποιήστε το φύλλο που περιέχει τη συμβολοσειρά που θέλετε να βρείτε κεφαλαία και πατήστε Alt + F11 κλειδιά για άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Πρέπει να κάνω κλικ στο φύλλο στο οποίο θέλετε να χρησιμοποιήσετε τον κωδικό Εξερεύνηση έργου παράθυρο και κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον παρακάτω κώδικα στο κενό σενάριο Module. Δείτε το στιγμιότυπο οθόνης:
Κωδικός: Βρείτε τη θέση του πρώτου κεφαλαίου από το string.
Function GetFirstUpper(Rg As Range) As Integer
'UpdatebyExtendoffice20160726
Dim xStr As String
Dim I As Integer
Application.Volatile
GetFirstUpper = -1
On Error Resume Next
xStr = Trim(Rg.Value)
For I = 1 To Len(xStr)
If (Asc(Mid(xStr, I, 1)) < 91) And (Asc(Mid(xStr, I, 1)) > 64) Then
GetFirstUpper = I
Exit Function
End If
Next
End Function
3. Αποθηκεύστε τον κωδικό και επιστρέψτε στο φύλλο που χρησιμοποιείτε και επιλέξτε ένα κενό κελί δίπλα στη συμβολοσειρά που θέλετε να βρείτε κεφαλαία, εισαγάγετε αυτόν τον τύπο = GetFirstUpper (F1), πατήστε εισάγετε κλειδί και, στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης πάνω από τα κελιά που χρειάζονται αυτόν τον τύπο. Δείτε το στιγμιότυπο οθόνης:
Άκρο: Εάν δεν υπάρχει κεφαλαίο στη συμβολοσειρά, το αποτέλεσμα εμφανίζεται ως -1.
Αλλάξτε όλα τα γράμματα σε UPPERCASE ή Proper case με το Kutools για Excel
Σε γενικές γραμμές το Excel, ίσως χρειαστεί συνήθως να αλλάξετε συμβολοσειρές γραμμάτων σε UPPERCAEs, Proper Case, πεζά γράμματα, Sentence case ή ToGgLe CaSe, όπως φαίνεται στην παρακάτω εικόνα.
Με Kutools για ExceΜπορείς να το εφαρμόσεις Αλλαγή περίπτωσης βοηθητικό πρόγραμμα για να αλλάξετε γρήγορα το γράμμα όπως χρειάζεστε.
| Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. |
Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:
1. Επιλέξτε τις χορδές που θέλετε να αλλάξετε τις θήκες τους και κάντε κλικ στο Kutools > Κείμενο > Αλλαγή περίπτωσης. Δείτε το στιγμιότυπο οθόνης:
2. Στη συνέχεια, στο σκάσιμο Αλλαγή περίπτωσης διαλόγου, ελέγξτε την επιλογή που θέλετε στο Τύπος αλλαγής και μπορείτε να κάνετε προεπισκόπηση του μεταβαλλόμενου αποτελέσματος στο παράθυρο προεπισκόπησης. Δείτε το στιγμιότυπο οθόνης:
3. Στη συνέχεια κάντε κλικ στο κουμπί Ok or Εφαρμογή για να αλλάξετε την υπόθεση.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
