テキスト文字列から大文字や大文字で始まる単語を抽出するにはどうすればよいですか？

テキスト文字列のリストがあり、セルからすべての大文字のみ、または大文字で始まる単語を抽出したい場合、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) を入力し、結果を得たいセルまでフィルハンドルをドラッグします。これにより、大文字で始まるすべての単語が抽出されます。スクリーンショットをご覧ください：