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

テキスト文字列のリストがある場合は、すべて大文字のみを抽出するか、大文字で始まる単語をセルから抽出します。 どのように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に設定します。 OK をクリックします。 インセット > モジュール、次に次のコードをコピーして貼り付けます モジュール 窓。

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） データの横の空白のセルに入力し、結果を取得するセルまで塗りつぶしハンドルをドラッグすると、大文字で始まるすべての単語が抽出されます。スクリーンショットを参照してください。