如何从文本字符串中提取大写字母或以大写字母开头的单词？

如果你有一个文本字符串列表，现在想要从单元格中提取所有大写字母或者以大写字母开头的单词。你该如何在Excel中解决这个问题呢？

使用用户定义函数从文本字符串中提取大写字母

使用用户定义函数从文本字符串中提取以大写字母开头的单词

使用用户定义函数从文本字符串中提取大写字母

以下VBA代码可以帮助你从单元格中提取仅包含大写的字母，请按照以下步骤操作：

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

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 for Applications 窗口。

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)，然后向下拖动填充柄应用此公式到其他单元格，所有以大写字母开头的单词都会被提取出来，如下截图所示：