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

or

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

docカンマの値を1に変換する

あなたがカンマで区切られたセルの値のリストを持っているとしたら、以下のスクリーンショットのようにカンマ区切りのテキスト文字列を複数の行または列に変換する必要があります。 Excelで複数のセル値を一度にコンマ区切りに基づいて行に分割する方法

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

Kutools for Excelでコンマ区切りのテキスト文字列を行に変換する


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


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

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

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

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

Sub RedistributeCommaDelimitedData()
'Updateby Extendoffice 2015924
    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アドイン以上で、60日以内に自由に試してみてください.

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

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

2。 次に、をクリックします クツール > テキスト > セルを分割する、スクリーンショットを見る:

docカンマの値を5 5に変換する

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

docカンマの値を6 6に変換する

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

docカンマの値を7に変換する

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

docカンマの値を8に変換する

このSplit Cells機能の詳細については、クリックしてください...

Excel用のKutoolsを今すぐダウンロードして無料でダウンロードできます!


デモ:Kutools for Excelでコンマ区切りのテキスト文字列を行に変換する

Kutools for Excel200便利なExcelアドイン以上で、60日に制限なく試してみることができます。 今すぐダウンロードして無料トライアル!


関連記事:

キャリッジリターンでセルを複数の列または行に分割する方法

Excelでセルの値を複数の列に分割する方法は?


Kutools for Excel-最高のOffice生産性向上ツールにより、生産性が80%向上

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