Συμβουλή: Άλλες γλώσσες μεταφράζονται από την Google. Μπορείτε να επισκεφθείτε το English έκδοση αυτής της σύνδεσης.
Σύνδεση
x
or
x
x
Κανε ΕΓΓΡΑΦΗ
x

or

Πώς να εξαγάγετε το πρώτο γράμμα κάθε λέξης από το κελί;

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

doc-extract-first-letter1

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


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


Στο Excel, μπορείτε να δημιουργήσετε ένα Λειτουργία που καθορίζεται από το χρήστη για να εξαγάγετε τα πρώτα γράμματα κάθε λέξης σε ένα κελί. Παρακαλούμε κάντε τα εξής:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Το παράθυρο της Microsoft Visual Basic για εφαρμογές.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησης, και επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο μονάδας. </ p>

Function GetFirstLetters(rng As Range) As String
'Update 20140325
    Dim arr
    Dim I As Long
    arr = VBA.Split(rng, " ")
    If IsArray(arr) Then
        For I = LBound(arr) To UBound(arr)
            GetFirstLetters = GetFirstLetters & Left(arr(I), 1)
        Next I
    Else
        GetFirstLetters = Left(arr, 1)
    End If
End Function

3. Στη συνέχεια, αποθηκεύστε και κλείστε αυτόν τον κωδικό, επιστρέψτε στο φύλλο εργασίας και εισαγάγετε αυτόν τον τύπο = GetFirstLetters (A2) (A2 υποδηλώνει το κελί που θέλετε να εξαγάγετε το πρώτο γράμμα, μπορείτε να το αλλάξετε όπως χρειάζεστε) σε ένα κενό κελί. Δείτε το στιγμιότυπο οθόνης:

doc-extract-first-letter1

4. Και στη συνέχεια πατήστε εισάγετε , και επιλέξτε το κελί B2 και, στη συνέχεια, σύρετε τη λαβή πλήρωσης στα κελιά που θέλετε να εφαρμόσετε αυτόν τον τύπο. Και όλα τα πρώτα γράμματα έχουν εξαχθεί από τη σειρά λέξεων, δείτε screenshot:

doc-extract-first-letter1


Σχετικό άρθρο:

Πώς να εξαγάγετε την πρώτη / τελευταία / nη λέξη από τη συμβολοσειρά κειμένου στο Excel;



Συνιστώμενα εργαλεία παραγωγικότητας

Καρτέλα Office

χρυσό star1 Φέρτε χρήσιμες καρτέλες στο Excel και άλλο λογισμικό του Office, όπως το Chrome, το Firefox και ο νέος Internet Explorer.

Kutools για το Excel

χρυσό star1 Φοβερο! Αυξήστε την παραγωγικότητά σας σε λεπτά 5. Δεν χρειάζεστε ειδικές δεξιότητες, εκτός από δύο ώρες κάθε μέρα!

χρυσό star1 300 Νέες δυνατότητες για Excel, Κάντε το Excel πολύ εύκολο και ισχυρό:

  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων.
  • Συνδυασμός και ενοποίηση πολλών φύλλων και βιβλίων εργασίας.
  • Συγκρίνετε Περιοχές, Αντιγραφή Πολλαπλών Εύρους, Μετατροπή Κειμένου σε Ημερομηνία, Μετατροπή μονάδας και νομίσματος.
  • Καταμέτρηση κατά Χρώματα, Υποσύνολα σελίδας, Σύνθετη Ταξινόμηση και Σούπερ Φίλτρο,
  • Περισσότερα Επιλογή / Εισαγωγή / Διαγραφή / Κείμενο / Μορφή / Σύνδεσμος / Σχόλιο / Βιβλία εργασίας / Φύλλα εργασίας Εργαλεία ...

Εικόνα του Kutools για το Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Oleg · 9 months ago
    Подскажите пожалуйста, можно ли модифицировать код чтобы забиралась не первые а Заглавные буквы?
  • To post as a guest, your comment is unpublished.
    nawal jha · 2 years ago
    i think it has one bug, it's automatically removed from module when sheet is closed, need to again every time when open sheet same process to be required, please advice how to save this formula in excel permanently.
  • To post as a guest, your comment is unpublished.
    NoOne · 2 years ago
    Please include this part:

    If you create a function called DISCOUNT in a workbook called Personal.xlsb and you call that function from another workbook, you must type =personal.xlsb!discount(), not simply =discount().

    https://support.office.com/en-us/article/Create-Custom-Functions-in-Excel-2007-2f06c10b-3622-40d6-a1b2-b6748ae8231f
  • To post as a guest, your comment is unpublished.
    Adam Pavey · 2 years ago
    Very helpful. Exactly what I was after.
  • To post as a guest, your comment is unpublished.
    Sridhar · 3 years ago
    Thank you very much.. its working.. u rocks