ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
会員登録
x

or

テキスト文字列から大文字または大文字で始まる単語を抽出する方法は?

テキスト文字列のリストがある場合は、すべての大文字のみ、または大文字で始まる単語をセルから抽出します。 どのようにExcelでそれを解決できますか?

ユーザー定義関数でテキスト文字列から大文字を抽出する

ユーザー定義関数を使用してテキスト文字列から大文字で始まる単語を抽出する


ユーザー定義関数でテキスト文字列から大文字を抽出する


次のVBAコードは、大文字のみをセルから抽出するのに役立ちます。このようにしてください。

1。 押さえつける Alt + F11 キーを押して アプリケーション用Microsoft Visual Basic 窓。

2. ナビゲーションヘッダーの インセット > モジュール、次のコードを モジュール 窓。

VBAコード:テキスト文字列から大文字のみを抽出する:

関数ExtractCap(Txt As String)としての文字列 'Updateby Extendofficeアプリケーション.Volatile Dim xRegExオブジェクトとして設定xRegEx = CreateObject( "VBSCRIPT.REGEXP")xRegEx.Pattern = "[^ AZ]" 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コード:大文字で始まる単語を抽出する:

関数StrExtract(文字列としての文字列)としての文字列 'Updateby Extendofficeアプリケーション.Volatile Dim xStrListとしてのバリアントDim xRet文字列Dim I As Long Len(Str)= 0 Then Exit関数xStrList = Split(Str、 "")UBound(xStrList )> = 0 Then For I = 0 To UBound(xStrList)xStrList(I)= StrConv(xStrList(I)、vbProperCase)次にxRet = xRet&xStrList(I)&End "次のStrExtract = Left(xRet、 Len(xRet) -  1)End If End Function

3。 コードを保存してコードウィンドウを閉じるには、次の式を入力します。 = StrExtract(A2) データの横にある空白のセルに入力し、結果ハンドルを取得するセルに塗りつぶしハンドルをドラッグし、大文字で始まるすべての単語を抽出します。スクリーンショットを参照してください。


Kutools for Excelは、ほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート そして、以前に使用したもの; セルを暗号化する パスワード付き メーリングリストの作成 そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストや数式を簡単に編集する) レイアウトを読む (多数のセルを簡単に読んで編集できます)。 フィルター範囲に貼り付ける...
  • セル/行/列を結合 データを失うことなく; セルコンテンツの分割。 重複する行/列を結合する...重複セルの防止。 範囲の比較...
  • 重複または一意を選択します空白行を選択 (すべてのセルは空です)。 スーパー検索とファジー検索 多くのワークブックで。 ランダム選択
  • 完全コピー 式の参照を変更せずに複数のセル。 参照を自動作成 複数のシートに 箇条書きを挿入、チェックボックスなど
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷 セルのコンテンツとコメント間の変換...
  • スーパーフィルター (保存して他のシートにフィルタ方式を適用する)。 高度な並べ替え 月/週/日、頻度などによる。 特殊フィルター 太字、斜体で...
  • ワークブックとワークシートを組み合わせる; キー列に基づいて表をマージします。 データを複数のシートに分割する; xls、xlsx、およびPDFのバッチ変換...
  • 300を超える強力な機能。 Office / Excel 2007-2019および365をサポートします。 すべての言語をサポートします。 企業または組織に簡単に展開できます。 フル機能の30日間の無料トライアル。
KTEタブ201905

OfficeタブはOfficeにタブ付きインターフェイスを提供し、作業をより簡単にします

  • Word、Excel、PowerPointでタブ付き編集と読み取りを有効にする、出版社、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を50%向上させ、毎日数百回のマウスクリックを削減します。
オフィシタブ底
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sonia · 8 months ago
    hi,

    thanks for this formula, however my =EXTRACTCAP(A2) keeps coming back with an error.

    can you help?