Πώς να εξαγάγετε αρχικά από ονόματα στο Excel;
Όταν επεξεργάζεστε αρχεία πελατών ή κάνετε συγχώνευση αλληλογραφίας, η λήψη αρχικών από ένα δεδομένο όνομα μπορεί να είναι χρήσιμη για εσάς, για παράδειγμα, HG για Hal Greer. Έτσι, σας παρουσιάζω μερικά κόλπα για να εξαγάγετε γρήγορα αρχικά από τη λίστα ονομάτων στο Excel.
Εξαγάγετε τα αρχικά με τον τύπο στο Excel
Τα αρχικά εξαγωγής χρησιμοποιούν τη λειτουργία Defined στο Excel
Εξαγάγετε τα αρχικά με τον τύπο στο Excel
Η πρώτη μέθοδος χρησιμοποιεί τον τύπο για την εξαγωγή αρχικών από ονόματα στο Microsoft Excel.
Επιλέξτε ένα κενό κελί, για παράδειγμα, Cell C2, πληκτρολογήστε αυτόν τον τύπο =LEFT(A2)&IF(ISNUMBER(FIND(" ",A2)),MID(A2,FIND(" ",A2)+1,1),"")&IF(ISNUMBER(FIND(" ",A2,FIND(" ",A2)+1)),MID(A2,FIND(" ",A2,FIND(" ",A2)+1)+1,1),"")(Το A2 είναι το πρώτο κελί της λίστας ονομάτων σας), πατήστε εισάγετε κουμπί και, στη συνέχεια, σύρετε τη λαβή πλήρωσης για να γεμίσετε το εύρος. Τώρα βλέπετε ότι όλα τα αρχικά κάθε ονόματος εξάγονται από τη λίστα ονομάτων.
Τα αρχικά εξαγωγής χρησιμοποιούν τη λειτουργία Defined στο Excel
Εκτός από τον τύπο, μπορείτε να χρησιμοποιήσετε τη συνάρτηση Defined για να εξαγάγετε εύκολα τα αρχικά από συγκεκριμένα ονόματα στο Microsoft Excel.
1. Επιλέξτε ένα κελί της στήλης που θέλετε να επιλέξετε και πατήστε Alt + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο αναδυόμενο παράθυρο, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, επικολλήστε τον ακόλουθο κώδικα VBA στη λειτουργική μονάδα.
VBA: Εξαγωγή αρχικών από ονόματα
Function FirstCharacters(pWorkRng As Range) As String
'Updateby20140514
Dim arr As Variant
Dim xValue As String
Dim OutValue As String
xValue = pWorkRng.Value
arr = VBA.Split(Trim(xValue))
For i = 0 To UBound(arr)
OutValue = OutValue & VBA.Left(arr(i), 1) & "."
Next
FirstCharacters = OutValue
End Function
3. Αποθηκεύστε τον κωδικό και κλείστε το παράθυρο, επιλέξτε ένα κενό κελί και πληκτρολογήστε αυτόν τον τύπο = Πρώτοι χαρακτήρες (A2), Στη συνέχεια πατήστε εισάγετε και σύρετε τη λαβή πλήρωσης για να συμπληρώσετε το εύρος που θέλετε. Μετά από αυτό, μπορείτε να δείτε τα αρχικά κάθε ονόματος εξάγονται.
Άκρο: Μπορείτε να αλλάξετε τα διαχωριστικά "." των αρχικών όπως χρειάζεστε στο παραπάνω VBA.
Σχετικά άρθρα:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!