KutoolsforOffice— 1 つのソリューション、5 つの強力なツール。少ない労力で大きな成果。

Excel で複数行のセル内容を個別の行または列に分割するには?

著者Siluvia変更日

実務では、Excel のセル内に複数行のテキストが表示されていることがよくあります。これは通常、ユーザーがデータ入力中にAlt + Enterキーを押して、セル内に改行(キャリッジリターン)を挿入したことに起因します。しかし、データ分析や並べ替え、さらなる処理を行う際には、これらの複数行の内容を分割し、各項目が個別の行または列に配置されるようにする必要があります。ところが、Excel にはこの作業を簡単に行える標準機能が用意されておらず、多くのユーザーにとって難題となっています。本記事では、Alt + Enterで区切られたセル内の複数行を、個別の行または列に素早く分割するための効果的な方法をいくつかご紹介します。

「文字列を列に分ける」機能で複数行のセル内容を個別の列に分割
Kutools for Excel で複数行のセル内容を簡単に個別の行または列に分割
VBA マクロを使用して複数行のセル内容を行または列に分割


「文字列を列に分ける」機能で複数行のセル内容を個別の列に分割

Alt + Enter で挿入された改行を含むデータを扱う際は、文字列を列に分ける機能を使えば、内容を個別の列に効率よく分割できます。この方法は、改行で区切られた各エントリを同じ行の複数列に横方向に展開したいときに特に便利です。ただし、この方法ではデータを列にのみ分割でき、行には分割できません。

1。分割したい複数行の内容を含むセルを選択し、次にデータ > 文字列を列に分けるをクリックしてください。スクリーンショットを参照してください:

「データ」>「テキストを列に分割」をクリック

2。最初の文字列を列に分けるウィザードダイアログボックスで、区切り文字付きオプションを選択して、次へボタンをクリックします。

ダイアログボックスで「区切り文字付き」オプションを選択

3。2 番目の文字列を列に分けるウィザードダイアログボックスで、その他のチェックボックスのみをオンにしてから、Altキーを押しながら数字 0010を次の空白欄に入力し、次へボタンをクリックしてください。スクリーンショットを参照してください:

この手順は非常に重要です。Altキーを押したまま、テンキーで0010を入力すると、セル内で行を区切るExcel の改行文字が正しく認識されます。テンキーのないノートパソコンをご利用の場合は、NumLock を有効にするか、画面キーボードを使用して正確に入力してください。

「その他」チェックボックスをオンにし、Altキーを押しながら0010と入力

4。3 番目の文字列を列に分けるウィザードダイアログボックスで、出力先ボックスに分割後の内容を配置するセルを指定し、最後に完了ボタンをクリックします。

デフォルトでは、Excel は分割時に選択したセルの右側にある既存のデータを上書きします。データ損失を防ぐには、他の重要なデータと干渉しない出力先セルを指定するか、分割前に元のデータを新しい領域にコピーすることをおすすめします。

分割後の内容を配置するセルを選択

これにより、選択した複数行のセル内容が、以下のスクリーンショットのように個別の列にきれいに分割されます。

選択した複数行のセルの内容が個別の列に分割されます

注:空の列が生成される場合、セル内容の末尾に余分な改行やスペースが含まれている可能性があります。これらは手動で削除するか、Excel の TRIM 関数または CLEAN 関数を使って前処理を行ってください。


Kutools for Excel で複数行のセル内容を個別の行または列に分割

複数行のセル内容を列だけでなくにも分割する必要がある場合、Excel の基本的な「文字列を列に分ける」機能だけでは対応できません。こうしたケースでは、セルの分割Kutools for Excel が提供するユーティリティが、より多機能で便利な選択肢になります。このツールを使えば、改行に基づいてデータを行にも列にも自由に分割でき、大規模なデータセットや繰り返し作業において抜群の柔軟性と効率性を発揮します。

Kutools for Excelは300 以上の高度な機能を提供し、複雑な作業を効率化して、創造性と生産性を高めます。AI 機能と統合されたKutools は、正確にタスクを自動化し、データ管理を簡単にします。Kutools for Excel の詳細情報。。。         無料トライアル。。。

1。分割したい複数行のエントリを含むセルを選択し、次にKutools>結合と分割>セルの分割をクリックしてください。スクリーンショットを参照してください:

Kutoolsの「セルの分割」機能をクリック

2。セルの分割ダイアログボックスで、次の手順を実行してください:

  • (1)各行を新しい行に配置したい場合は、行に分割を選択してください。それ以外の場合は、列に分割を選んで、列方向に分割します。
  • (2)区切り文字の設定で、改行オプションを選択し、改行を区切り文字として使用します。
  • (3)設定を確定するには、OKボタンをクリックしてください。

この手順は柔軟に対応できます。データ構造に合った区切り文字を選択し、続行前にプレビューで正確性を確認してください。

ダイアログボックスでオプションを指定

3。ダイアログボックスが表示されたら、分割したテキストを配置する空白セルを選択して、OKをクリックします。

分割テキストを配置する空白セルを選択

これにより、複数行のセルが以下のように個別の列または行に分割されます。

複数行のセルが列または行に分割されます

このユーティリティの30 日間無料トライアルをご利用になりたい場合は、こちらをクリックしてダウンロードしてください。その後、上記の手順に従って操作を適用してください。


VBA マクロを使用して複数行のセル内容を行または列に分割

作業の自動化に慣れているユーザーにとって、VBA マクロは改行で区切られた複数行セルを効率的かつカスタマイズ可能な方法で分割し、各項目を個別の行または列に出力するのに最適です。この方法は一括処理や再利用可能なソリューションの作成、大規模テーブルでのインプレース分割に理想的です。

VBA を使用すれば、出力先(行または列)を制御したり、区切り文字を微調整したり、繰り返しのワークフローを自動化したりできます。これにより、パワーユーザーや大規模データセットを扱う際に大幅な時間節約が可能です。

1開発者タブVisual Basicをクリックして VBA エディターを開きます。Microsoft Visual Basic for Applicationsウィンドウで、挿入から標準モジュールをクリックし、次のコードを空のモジュールウィンドウにコピーしてください:

Sub SplitMultilineCellsToRows()
    ' Split selected multiline cell contents to separate rows below each cell
    On Error Resume Next
    Dim Cell As Range
    Dim SplitArr() As String
    Dim i As Integer
    xTitleId = "KutoolsforExcel"
    
    For Each Cell In Selection
        If InStr(Cell.Value, Chr(10)) Then
            SplitArr = Split(Cell.Value, Chr(10))
            
            For i = UBound(SplitArr) To 1 Step -1
                Cell.Offset(i, 0).EntireRow.Insert
                Cell.Offset(i, 0).Value = SplitArr(i)
            Next i
            
            Cell.Value = SplitArr(0)
        End If
    Next Cell
End Sub

2。コードを実行するには、ワークシートで対象セルを選択し、VBA ウィンドウで実行ボタン「実行」またはF5キーを押してください。複数行のセル内容が即座に行に分割されます。

このコードを列への分割に適用するには、次のマクロを使用します:

Sub SplitMultilineCellsToColumns()
    ' Split selected multiline cell contents to separate columns to the right
    On Error Resume Next
    Dim Cell As Range
    Dim SplitArr() As String
    Dim i As Integer
    xTitleId = "KutoolsforExcel"
    
    For Each Cell In Selection
        If InStr(Cell.Value, Chr(10)) Then
            SplitArr = Split(Cell.Value, Chr(10))
            For i = 0 To UBound(SplitArr)
                Cell.Offset(0, i).Value = SplitArr(i)
            Next i
        End If
    Next Cell
End Sub

ここでも、対象セルを選択し、VBA エディターに戻ってこのマクロを実行してください。各複数行セルの値が右側の列に分割されます。

ヒント、注意点、およびトラブルシューティング:VBA ソリューションを使用する際は、必ず事前にExcel ファイルを保存してください。マクロは通常の「元に戻す」ショートカット(Ctrl+Z)では取り消せません。また、ワークシートに十分な空きスペースを確保していないと、新しく追加された行や列が既存のデータを上書きしてしまう可能性があります。VBA を初めて使用する場合は、サンプルデータでテストすることを強くおすすめします。


Kutools for Excel で複数行のセル内容を簡単に個別の行または列に分割

 

最高の Office 業務効率化ツール

🤖KUTOOLS AI アシスタント:次に基づいてデータ分析を革新します:インテリジェント実行     コード生成  カスタム数式作成    データ分析とチャート生成  拡張機能呼び出し
人気の機能検索・ハイライト、または重複をマーキング     空白行を削除する     データを失うことなく列の結合またはセルを     数式を使用しない四捨五入...
スーパー LOOKUP複数条件 VLookup    複数値 VLookup     複数シート間 VLookup      ファジーマッチ....
高度なドロップダウンリストドロップダウンリストをすばやく作成     連動型ドロップダウンリスト     複数選択可能なドロップダウンリスト....
列マネージャー指定した数の列を追加列の移動非表示列の表示状態を切り替え範囲および列の比較...
注目の機能グリッドフォーカス     デザインビュー   強化された数式バー    ワークブックとシートマネージャー     リソースライブラリ(オートテキスト)  日付ピッカー     ワークシートの統合    暗号化/セルの復号化    リストからメール送信     スーパーフィルター      特殊フィルタ(太字のフォントを持つセルをフィルタリング/斜体/取り消し線。。。) 。。。
トップ15 ツールセット12 テキストツールテキストの追加特定の文字を削除、...)   50+チャートタイプガントチャート、...)   40+実用的関数誕生日に基づいて年齢を計算します、...)   19 挿入ツールQR コードを挿入パスから画像を挿入、...)   12 変換ツール単語に変換する為替レートの変換、...)   7 結合と分割ツール高度な行のマージセルの分割、...)さらに多数
Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています!

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。


Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

  • Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
  • 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
  • 日々の生産性を50%も向上させ、毎日数百回ものマウスクリックを削減します!

すべてのKutools アドインが、たった1 つのインストーラーで完結。

Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。

ExcelWordOutlookTabsPowerPoint
  • オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン+Office Tab Pro
  • インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能(MSI 対応)
  • 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
  • 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
  • 最高のお得感— 個別アドイン購入よりお得