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

カンマ区切りのテキスト文字列をExcelのリストまたは行に変換するにはどうすればよいですか?

docはコンマ値をリスト1に変換します

カンマで区切られたセル値のリストがあるとすると、次のスクリーンショットに示すように、これらのカンマで区切られたテキスト文字列を複数の行または列に変換する必要があります。 Excelでコンマ区切り文字に基づいて複数のセル値を一度に行に分割するにはどうすればよいですか?

カンマ区切りのテキスト文字列をVBAコードを使用して行に変換する

Kutools for Excelを使用して、コンマ区切りのテキスト文字列を行に変換します


カンマ区切りのテキスト文字列をVBAコードを使用して行に変換する

次のVBAコードは、複数のコンマ区切りのセル値を列に変換するのに役立つ場合があります。次のようにしてください。

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

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

VBAコード:カンマ区切りのテキスト文字列を行またはリストに変換します

Sub RedistributeCommaDelimitedData()
'Updateby Extendoffice
    Dim xArr() As String
    Dim xAddress As String
    Dim Rg As Range
    Dim Rg1 As Range
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8)
    If Rg Is Nothing Then Exit Sub
    Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)
    If Rg Is Nothing Then Exit Sub
    Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
    If Rg1 Is Nothing Then Exit Sub
    xArr = Split(Join(Application.Transpose(Rg.Value), ","), ",")
    Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)
    Rg1.Parent.Activate
    Rg1.Resize(UBound(xArr) + 1).Select
End Sub

3。 次に、 F5 このコードを実行するためのキー。ポップアウトされたダイアログボックスで、変換するデータ範囲を選択します。スクリーンショットを参照してください。

docはコンマ値をリスト2に変換します

4。 をクリックします OK、次のダイアログで、結果を出力するセルを指定します。スクリーンショットを参照してください。

docはコンマ値をリスト3に変換します

5に設定します。 OK をクリックします。 OK ボタンをクリックすると、選択したカンマ区切りのセル値が行のリストに変換されます。 スクリーンショットを参照してください:

docはコンマ値をリスト4に変換します


Kutools for Excelを使用して、コンマ区切りのテキスト文字列を行に変換します

あなたが持っている場合 Kutools for Excelそのと 分割セル ユーティリティを使用すると、必要に応じて、カンマ区切りのセル値をカンマ区切り文字に基づいて複数の行または列にすばやく分割できます。

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

インストールした後 Kutools for Excel、次の手順で実行してください。

1。 カンマ区切り文字に基づいて、行に変換するセル値を選択します。

2。 次に、をクリックします クツール > マージ&スプリット > 分割セル、スクリーンショットを参照してください:

3。 の中に 分割セル ダイアログボックスで 行に分割 オプションの下に タイプ セクション、そしてから 区切り文字を指定します セクション、チェック その他 チェックボックスをオンにして、テキストボックスにカンマを入力します。スクリーンショットを参照してください。

docはコンマ値をリストに変換します6

4。 次に、をクリックします Ok、および別のダイアログがポップアップ表示され、結果を配置するセルを選択するように通知されます。スクリーンショットを参照してください。

docはコンマ値をリスト7に変換します

5。 そして、 Ok ボタンをクリックすると、コンマ区切りのセルがコンマ区切り文字に基づいて複数の行に分割されます。スクリーンショットを参照してください。

docはコンマ値をリスト8に変換します

このスプリットセル機能の詳細については、ここをクリックしてください…

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


デモ:Kutools for Excelを使用して、カンマ区切りのテキスト文字列を行に変換します

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

関連記事:

キャリッジリターンでセルを複数の列または行に分割するにはどうすればよいですか?

Excelでセル値を複数の列に分割するにはどうすればよいですか?

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

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

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

説明


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

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
update to work for a single input cell (mentioned by Sid posted before me). Probably a way to do this for both scenarios, but this worked for me, I had the same issue.

Sub RedistributeCommaDelimitedData_singleCell()

'Updateby Extendoffice 201592

Dim xArr() As String

Dim xAddress As String

Dim Rg As Range

Dim Rg1 As Range

On Error Resume Next

xAddress = Application.ActiveWindow.RangeSelection.Address

Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8)

If Rg Is Nothing Then Exit Sub

Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)

If Rg Is Nothing Then Exit Sub

Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)

If Rg1 Is Nothing Then Exit Sub



' xArr = Split(Join(Application.Transpose(Rg.value), ","), ",") -------- need this if you have multiple input cells in your input range (Rg)

' replace with this for single input cell for Rg:

xArr = Split(Rg.value, ",")

Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)

Rg1.Parent.Activate

Rg1.Resize(UBound(xArr) + 1).Select



End Sub
This comment was minimized by the moderator on the site
I have a cell with 667 characters, of which 119 are commas.With this VBA code I can't split. Can you help me please?Thank you very much!
This comment was minimized by the moderator on the site
Hi, I have a single row but this formula do not work for single row while it works for multiple rows could you guide on that would be a great help Thanks
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations