Μετάβαση στο κύριο περιεχόμενο

Πώς να βρείτε γρήγορα τη θέση του πρώτου κεφαλαίου στη συμβολοσειρά κειμένου του Excel;

Συγγραφέας: Sun Τελευταία τροποποίηση: 2020-08-20

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

Βρείτε τη θέση του πρώτου κεφαλαίου με συμβολοσειρά με τύπο

Βρείτε τη θέση του πρώτου κεφαλαίου σε συμβολοσειρά με καθορισμένη συνάρτηση

Αλλάξτε όλα τα γράμματα σε UPPERCASE ή Proper Case με το Kutools για Excel καλή ιδέα3


βέλος μπλε δεξιά φούσκα Βρείτε τη θέση του πρώτου κεφαλαίου με συμβολοσειρά με τύπο

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

Επιλέξτε ένα κενό κελί δίπλα στη συμβολοσειρά που θέλετε να βρείτε το πρώτο κεφαλαίο, για παράδειγμα, B1, εισαγάγετε αυτόν τον τύπο =MIN(IF(ISERROR(FIND(CHAR(ROW(INDIRECT("65:90"))),A1)),"",FIND(CHAR(ROW(INDIRECT("65:90"))),A1)))

Τύπος Shift + Ctrl + Enter κλειδί για να λάβετε το σωστό αποτέλεσμα και, στη συνέχεια, σύρετε τη λαβή αυτόματης πλήρωσης πάνω από τα κελιά που χρειάστηκαν για την εφαρμογή αυτού του τύπου. Δείτε το στιγμιότυπο οθόνης:
doc βρείτε τη θέση του πρώτου κεφαλαίου 1


βέλος μπλε δεξιά φούσκα Βρείτε τη θέση του πρώτου κεφαλαίου σε συμβολοσειρά με καθορισμένη συνάρτηση

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

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

doc βρείτε τη θέση του πρώτου κεφαλαίου 5

3. Αποθηκεύστε τον κωδικό και επιστρέψτε στο φύλλο που χρησιμοποιείτε και επιλέξτε ένα κενό κελί δίπλα στη συμβολοσειρά που θέλετε να βρείτε κεφαλαία, εισαγάγετε αυτόν τον τύπο = GetFirstUpper (F1), πατήστε εισάγετε κλειδί και, στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης πάνω από τα κελιά που χρειάζονται αυτόν τον τύπο. Δείτε το στιγμιότυπο οθόνης:
doc βρείτε τη θέση του πρώτου κεφαλαίου 6

Άκρο: Εάν δεν υπάρχει κεφαλαίο στη συμβολοσειρά, το αποτέλεσμα εμφανίζεται ως -1.


βέλος μπλε δεξιά φούσκα Αλλάξτε όλα τα γράμματα σε UPPERCASE ή Proper case με το Kutools για Excel

Σε γενικές γραμμές το Excel, ίσως χρειαστεί συνήθως να αλλάξετε συμβολοσειρές γραμμάτων σε UPPERCAEs, Proper Case, πεζά γράμματα, Sentence case ή ToGgLe CaSe, όπως φαίνεται στην παρακάτω εικόνα.
doc βρείτε τη θέση του πρώτου κεφαλαίου 2

Με Kutools για ExceΜπορείς να το εφαρμόσεις Αλλαγή περίπτωσης βοηθητικό πρόγραμμα για να αλλάξετε γρήγορα το γράμμα όπως χρειάζεστε.

Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. 

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

1. Επιλέξτε τις χορδές που θέλετε να αλλάξετε τις θήκες τους και κάντε κλικ στο Kutools > Κείμενο > Αλλαγή περίπτωσης. Δείτε το στιγμιότυπο οθόνης:
doc βρείτε τη θέση του πρώτου κεφαλαίου 3

2. Στη συνέχεια, στο σκάσιμο Αλλαγή περίπτωσης διαλόγου, ελέγξτε την επιλογή που θέλετε στο Τύπος αλλαγής και μπορείτε να κάνετε προεπισκόπηση του μεταβαλλόμενου αποτελέσματος στο παράθυρο προεπισκόπησης. Δείτε το στιγμιότυπο οθόνης:
doc βρείτε τη θέση του πρώτου κεφαλαίου 4

3. Στη συνέχεια κάντε κλικ στο κουμπί Ok or Εφαρμογή για να αλλάξετε την υπόθεση.

λήψη εγγράφου 1

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖 Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

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

Περιγραφή


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I would suggest use the new CHAR(SEQUENCE(26, 1, 65)) instead CHAR(ROW(INDIRECT("65:90"))) if you can, the new code is simpler to understand and gives me less problems with automatic tables
This comment was minimized by the moderator on the site
Hi,
Can you please help me to understand why you used INDIRECT("65:90").? What is the meaning of "65:90"?
This comment was minimized by the moderator on the site
65 to 90 is the code for uppercase characters, so this code checks what the position of the character code is within that range
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations