メインコンテンツへスキップ

Excelで大文字でテキストを別々の列に分割するにはどうすればよいですか?

大文字で分割されたドキュメント1

次のスクリーンショットに示すように、セルの内容を大文字で別々の列に分割したいデータの範囲があるとすると、Excelでこの問題を解決するための良いアイデアはありますか?

数式を使用して大文字でテキストを別々の列に分割する

VBAコードを使用して大文字でテキストを別々の列に分割する

Kutools for Excelを使用して、テキストを大文字で別々の列に分割する


セルに単語がXNUMXつしかない場合は、次の数式を使用してこの作業を完了することができます。 次のようにしてください。

1。 次の配列数式を入力します。 =LEFT(A2,SMALL(FIND(CHAR(ROW(INDIRECT("65:90"))),A2&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"),2)-1) (A2 大文字で分割するセル)をデータに隣接する空白のセルに分割し、を押します。 Ctrl + Shift + Enter 最初の単語を取得するために一緒にキーを押します。スクリーンショットを参照してください。

大文字で分割されたドキュメント2

2。 次に、C2を選択し、この数式を適用するセルまで塗りつぶしハンドルをドラッグします。範囲セルの最初の単語がすべて一度に抽出されます。スクリーンショットを参照してください。

大文字で分割されたドキュメント3

3。 別の数式を入力してください: = REPLACE(A2,1、LEN(C2)、 "") (A2 分割するセルであり、 C2 セルには、返された最初の単語が含まれています)セルD2に入力し、を押します。 入力します XNUMX番目の単語を取得するためのキー。スクリーンショットを参照してください。

大文字で分割されたドキュメント4

4。 セルD2を選択し、塗りつぶしハンドルをセルまでドラッグしてXNUMX番目の単語を取得すると、範囲のセルの内容が大文字でXNUMX列に分割されます。スクリーンショットを参照してください。

大文字で分割されたドキュメント5


上記の数式は、XNUMXつの単語を含むセル値にのみ適用されます。分割する必要のあるセルに複数の単語がある場合は、大文字の前にスペースを追加してから、テキストを列に適用してセルの内容を分割できます。列をスペースで区切ります。

まず、VBAコードを適用して大文字の前にスペースを追加し、単語を区切ります。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード:セルの各大文字の前にスペースを挿入します

Function SplitWords(ByVal Str As String) As String
'updateby Extendoffice 20151128
    Dim I As Integer
    SplitWords = Left(Str, 1)
    For I = 2 To Len(Trim(Str))
        If (Asc(Mid(Str, I, 1)) > 64) And _
           (Asc(Mid(Str, I, 1)) < 91) And _
           (Mid(Str, I - 1, 1) <> " ") Then _
            SplitWords = SplitWords & " "
        SplitWords = SplitWords & Mid(Str, I, 1)
    Next
End Function

3。 このコードを保存して閉じ、ワークシートに戻って、次の式を入力してください。 = splitwords(A2) データに隣接する空白のセルに、スクリーンショットを参照してください。

大文字で分割されたドキュメント6

4。 次に、塗りつぶしハンドルをこの数式を適用するセルまでドラッグします。セルの内容を区切るために、各大文字の前にスペースが挿入されています。スクリーンショットを参照してください。

大文字で分割されたドキュメント7

5。 次に、これらの数式セルを値としてコピーして貼り付け、別の場所または元の範囲の数式を削除する必要があります。

大文字で分割されたドキュメント8

次に、テキストから列への機能を適用して、セルの内容をスペースで別々の列に分割します。

6。 スペースを挿入したセルの値を選択し、をクリックします 且つ > テキストから列へ、のステップ1で テキストを列ウィザードに変換する選択 区切り文字付き オプション、スクリーンショットを参照してください:

大文字で分割されたドキュメント9

7。 次に、をクリックします Next ボタン、ウィザードのステップ2で、チェックします スペース オプションの下に デリミタ セクション、スクリーンショットを参照してください:

大文字で分割されたドキュメント10

8。 クリックしてください Next ボタン、ウィザードのステップ3で、 オプションの下に 列データ形式、次に、をクリックして分割値を配置するセルを選択します 大文字で分割されたドキュメント12 ボタン、スクリーンショットを参照してください:

大文字で分割されたドキュメント11

9。 最後に、 終了 ボタンをクリックすると、次のスクリーンショットに示すように、セルの内容が複数の列に分割されています。

大文字で分割されたドキュメント13


あなたが持っている場合 Kutools for Excel、その組み合わせ テキストを追加 > 分割セル 機能、このタスクを簡単かつ快適に処理できます。次のようにしてください。

Kutools for Excel : 300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます.

1。 分割する元のデータを選択します。

2。 次に、をクリックします クツールテキスト > テキストを追加、スクリーンショットを参照してください:

3。 の中に テキストを追加 ダイアログボックスで、スペースバーまたは必要なその他の区切り文字をXNUMX回入力してください。 テキスト ボックスをクリックし、 最初の文字は大文字です に追加するだけ セクション、スクリーンショットを参照してください:

大文字で分割されたドキュメント15

4. 次に、をクリックします。 Ok ボタン、および各大文字の前にスペースが追加されています。スクリーンショットを参照してください。

大文字で分割されたドキュメント16

5。 そして、あなたは適用することができます 分割セル の有用性 Kutools for Excel セル値をスペースで分割し、データ範囲を選択したままにして、[ クツール > マージ&スプリット > 分割セル、スクリーンショットを参照してください:

6。 の中に 分割セル ダイアログボックスで 列に分割 セクション、およびチェック スペース または、手順3で追加したその他の区切り文字は、スクリーンショットを参照してください。

資本で分割されたドキュメント18

7. 次に、をクリックします。 Ok、および分割データを配置するセルを選択するように促すプロンプトボックスが表示されます。スクリーンショットを参照してください。

大文字で分割されたドキュメント19

8。 最後に、 OK ボタンをクリックすると、必要な結果が得られます。スクリーンショットを参照してください。

大文字で分割されたドキュメント20

今すぐExcel用のKutoolsをダウンロードして無料トライアル!


Kutools for Excel:300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます。 今すぐダウンロードして無料トライアル!

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hola! Llevo todo el dia tratando de divir palabras juntas en celdas en excel, he dado con esta pagina, pero el código VBA no me funciona, tengo entendido que =Splitwords ya no esta disponible.
Es posible que puedas ayudarme?
This comment was minimized by the moderator on the site
Formula/function works as it should now, a later amendment (#25891) fixed it - thank you so much
This comment was minimized by the moderator on the site
DanMorgan = Dan
MollieClark = Mollie
Jade, Jam, Ryan, Dummy (not his real name),Jess,Cass, Jenni and Jack all come through as Jade,Jam, etc

using Excel 2013 (company supplied)
This comment was minimized by the moderator on the site
I need some help splitting a cell. I can do it by lower case next to upper case. But if the splitting word is one capitol letter, followed by another capitol letter it won't work. Also, if there are Roman numerals involved there are problems. If there is a word, such as "McDonald" or "MacDonald" there are problems. Can you help?
This comment was minimized by the moderator on the site
This doesn't work for two of the same capital letters
This comment was minimized by the moderator on the site
Hello,
If the two words are same words, please change the first array formula to the follows:
=LEFT(A2,SMALL(FIND(CHAR(ROW(INDIRECT("65:90"))),RIGHT(A2, LEN(A2)-1)&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"),1))

Please remember to press Ctrl + Shift + Enter keys together.

Hope it can help you!
This comment was minimized by the moderator on the site
Thanks for the content it really worked
This comment was minimized by the moderator on the site
Your formula fail if name is like this: JhonJhon MarkMark
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations