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

or

どのようにセルから各単語の最初の文字を抽出するには?

あなたのワークシートに国名のリストがあるとしたら、次に示すスクリーンショットのように、セル内の各単語の最初の文字を抽出する必要があります。 通常、Excelの各単語の最初の文字をピックアップする直接的な機能はありません。 しかし、ここでは、この課題を解決するための有用な方法について話すことができます。

doc-extract-first-letter1

セルから各単語の最初の文字をユーザ定義関数で抽出する


矢印青い右の泡セルから各単語の最初の文字をユーザ定義関数で抽出する


Excelでは、 ユーザー定義関数 セル内のすべての単語の最初の文字を抽出します。 このようにしてください:

1。 押さえつける Alt + F11 キーを押して Microsoft Visual Basic for Applicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードを モジュールウィンドウ。</ p>

Function GetFirstLetters(rng As Range) As String
'Update 20140325
    Dim arr
    Dim I As Long
    arr = VBA.Split(rng, " ")
    If IsArray(arr) Then
        For I = LBound(arr) To UBound(arr)
            GetFirstLetters = GetFirstLetters & Left(arr(I), 1)
        Next I
    Else
        GetFirstLetters = Left(arr, 1)
    End If
End Function

3。 次に、このコードを保存して閉じ、ワークシートに戻ってこの式を入力します = GetFirstLetters(A2) (A2 最初の文字を抽出するセルを示します。必要に応じて変更することができます)を空のセルに挿入します。 スクリーンショットを見る:

doc-extract-first-letter1

4。 そして、 入力します キーを押してセルB2を選択し、塗りつぶしハンドルをこの数式を適用するセルにドラッグします。 すべての最初の文字は一連の単語から抽出されています。スクリーンショットを参照してください:

doc-extract-first-letter1


関連記事:

どのようにExcelでテキスト文字列から最初/最後/ n番目の単語を抽出するには?



推奨生産性ツール

Office Tab

金星1 Chrome、Firefox、新しいInternet Explorerと同様に、Excelやその他のOfficeソフトウェアに便利なタブを持たせる。

Kutools for Excel

金星1 素晴らしい! 5分で生産性を向上させます。 特別なスキルは必要ありません。毎日2時間節約できます!

金星1 300 Excelの新機能は、Excelを非常に簡単かつ強力にする:

  • データを失うことなくセル/行/列をマージします。
  • 複数のシートとブックを結合して統合する。
  • 範囲を比較し、複数の範囲をコピーし、テキストを日付、単位、通貨の変換に変換します。
  • 色数、ページング小計、高度なソートとスーパーフィルター、
  • 詳細選択/挿入/削除/テキスト/書式/リンク/コメント/ワークブック/ワークシートツール...

Kutools for Excelのスクリーンショット

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.
    Oleg · 9 months ago
    Подскажите пожалуйста, можно ли модифицировать код чтобы забиралась не первые а Заглавные буквы?
  • To post as a guest, your comment is unpublished.
    nawal jha · 2 years ago
    i think it has one bug, it's automatically removed from module when sheet is closed, need to again every time when open sheet same process to be required, please advice how to save this formula in excel permanently.
  • To post as a guest, your comment is unpublished.
    NoOne · 2 years ago
    Please include this part:

    If you create a function called DISCOUNT in a workbook called Personal.xlsb and you call that function from another workbook, you must type =personal.xlsb!discount(), not simply =discount().

    https://support.office.com/en-us/article/Create-Custom-Functions-in-Excel-2007-2f06c10b-3622-40d6-a1b2-b6748ae8231f
  • To post as a guest, your comment is unpublished.
    Adam Pavey · 2 years ago
    Very helpful. Exactly what I was after.
  • To post as a guest, your comment is unpublished.
    Sridhar · 3 years ago
    Thank you very much.. its working.. u rocks