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

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

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

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

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

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

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

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

Κωδικός VBA: Εξαγάγετε μόνο κεφαλαία γράμματα από συμβολοσειρές κειμένου:

Function ExtractCap(Txt As String) As String
'Updateby Extendoffice
    Application.Volatile
    Dim xRegEx As Object
    Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
    xRegEx.Pattern = "[^A-Z]"
    xRegEx.Global = True
    ExtractCap = xRegEx.Replace(Txt, "")
    Set xRegEx = Nothing
End Function

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

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

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

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

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

Κωδικός VBA: Εξαγωγή λέξεων που ξεκινούν με κεφαλαίο γράμμα:

Function StrExtract(Str As String) As String
'Updateby Extendoffice
    Application.Volatile
    Dim xStrList As Variant
    Dim xRet As String
    Dim I As Long
    If Len(Str) = 0 Then Exit Function
    xStrList = Split(Str, " ")
    If UBound(xStrList) >= 0 Then
        For I = 0 To UBound(xStrList)
            If xStrList(I) = StrConv(xStrList(I), vbProperCase) Then
                xRet = xRet & xStrList(I) & " "
            End If
        Next
        StrExtract = Left(xRet, Len(xRet) - 1)
    End If
End Function

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