Excel：区切られたテキストを行に分割する方法

ワークシートにXNUMX列のテーブルがあり、最初の列には価格レベルがリストされ、XNUMX番目の列にはセルで区切られたコンマ付きの果物の名前がリストされ、XNUMX番目の列には果物の価格がリストされているとします。 仕事は、区切られた果物の名前を行に分割し、以下のスクリーンショットに示すように、関連する価格レベルと価格の行を繰り返すことです。

ここでは、この仕事を解決するためのXNUMXつの方法を紹介します。

VBAを使用して、区切られたテキストを行に分割します

区切り文字で区切られたテキストを行に分割するには、次を使用します。 Power Query

これは、区切られたテキストを行にすばやく分割できるVBAコードです。

1。 押す 他の + F11 を有効にするためのキー アプリケーション向け Microsoft Visual Basic 窓。

2。 クリック インセット タブ> モジュール 新しい空のモジュールを作成します。

3.以下のコードをコピーして空のモジュールに貼り付けます。

VBA：区切られたテキストを行に分割

Public Sub SplitTextInCellsToRows()
'UpdatebyExtendoffice20220622
    Dim xSRg, xIptRg, xCrRg, xRg As Range
    Dim xSplitChar As String
    Dim xArr As Variant
    Dim xFNum, xFFNum, xRow, xColumn, xNum As Integer
    Dim xWSh As Worksheet
    Set xSRg = Application.InputBox("Select a range:", "Kutools for Excel", , , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    xSplitChar = Application.InputBox("Type delimiter:", "Kutools for Excel", , , , , , 2)
    If xSplitChar = "" Then Exit Sub

    Application.ScreenUpdating = False
    xRow = xSRg.Row
    xColumn = xSRg.Column
    Set xWSh = xSRg.Worksheet
    For xFNum = xSRg.Rows.Count To 1 Step -1
        
        Set xRg = xWSh.Cells.Item(xRow + xFNum - 1, xColumn)
        Debug.Print xRg.Address
        xArr = Split(xRg, xSplitChar)
        For xFFNum = LBound(xArr) To UBound(xArr)
            xRg.EntireRow.Copy
            xRg.Offset(1, 0).EntireRow.Insert Shift:=xlShiftDown
            xRg.Worksheet.Cells(xRow + xFNum, xColumn) = xArr(xFFNum)
        Next
        xRg.EntireRow.Delete
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

4。 押す F5 キーを押して実行ボタンをクリックします  コードをアクティブ化するには、行に分割する必要のある区切りテキストを含むヘッダーを除外する列を選択するためのダイアログが表示されます。 クリック OK.

5.次に、XNUMX番目のダイアログが表示され、使用する区切り文字を入力します。 ここにコンマ（、）を入力します。 クリック OK.

これで、区切られたテキストが行に分割され、他の関連する列が繰り返されました。

  VBAは元のデータを変更します。前に、そのコピーを保存することをお勧めします。

Excel 2013以降のバージョンを使用している場合は、 Power Query この仕事を解決するための良い選択になります。

1.データ範囲を選択して、をクリックします 且つ > テーブル/範囲から.

2.ポッピングで テーブルの作成 ダイアログ、チェック 私のテーブルにはヘッダーがあります 必要に応じて、をクリックします OK.

そうして Power Query エディター ウィンドウが表示され、データが表示されています。

3.区切りテキストを行に分割する列をクリックし、をクリックします 最適化の適用 タブ> 分割列 > 区切り文字による.

または、列を選択して列ヘッダーを右クリックし、コンテキストメニューでこの機能を選択することもできます。

4。 の中に 区切り文字で列を分割 ウィンドウで、必要に応じて区切り文字を選択します。 区切り文字を選択または入力します セクションを選択し、 区切り文字が出現するたび オプションをクリックし、展開します 詳細オプション 選択するセクション 行 オプション。 クリック OK.

これで、区切られたテキストが行に分割されました。

5.次にウィンドウを閉じると、ダイアログがポップアップし、クリックします キープ

次に、テーブルを使用して新しいシートが作成されます。

---

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

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

• スーパーフォーミュラバー （複数行のテキストと数式を簡単に編集できます）; 読書レイアウト （多数のセルを簡単に読み取って編集する）; フィルター範囲に貼り付け...
• セル/行/列をマージする およびデータの保持。 分割セルコンテンツ; 重複する行と合計/平均を組み合わせる...重複セルを防止します。 範囲を比較する...
• [複製]または[一意]を選択します 行; 空白行を選択 （すべてのセルは空です）; スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
• 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
• お気に入りの数式をすばやく挿入する、範囲、チャート、写真; セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
• テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
• スーパーフィルター （フィルタースキームを保存して他のシートに適用します）; 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
• ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
• ピボットテーブルのグループ化 週番号、曜日など... ロック解除された、ロックされたセルを表示する さまざまな色で; 式/名前を持つセルを強調表示する...

続きを読みます... フル機能 30 日間無料トライアル... 購入... 

---

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

• Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
• 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
• 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!

続きを読みます... フル機能 30 日間無料トライアル... 購入...