Как извлечь из текстовых строк заглавные буквы или слова, начинающиеся с заглавной буквы?

Если у вас есть список текстовых строк, теперь вы хотите извлечь из ячеек только все заглавные буквы или слова, начинающиеся с заглавной буквы. Как решить эту проблему в 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) в пустую ячейку рядом с вашими данными, затем перетащите дескриптор заполнения вниз к ячейкам, которые вы хотите получить, и все слова, начинающиеся с заглавной буквы, будут извлечены, см. снимок экрана: