キャリッジリターンに基づいてセルの内容を複数の列や行に分割

Excelで作業しているとき、複数の値が改行やキャリッジリターンで区切られて1つのセルに保存されている場合があります。データを効果的に分析し操作するには、これらのセルの内容を複数の列や行に分割すると便利です。このガイドでは、そのプロセスをステップバイステップで説明します。

キャリッジリターンに基づいてセルを複数の列に分割

• 「テキストを列に分割」機能を使用
• Kutools for Excelを使用
• TEXTSPLIT関数を使用（Excel 365）

キャリッジリターンに基づいてセルを複数の行に分割

• VBAコードを使用
• Kutools for Excelを使用
• TEXTSPLIT関数を使用（Excel 365）

キャリッジリターンに基づいてセルを複数の列に分割

キャリッジリターンで区切られたセルの内容リストがあり、それを以下のスクリーンショットのように改行に基づいて複数の列に分割したい場合、このセクションではそれを達成するための3つの効果的な方法を紹介します。

「テキストを列に分割」機能を使用

Excelの「テキストを列に分割」機能は、セルを複数の列に分割するのに理想的です。

1. 分割したいデータが含まれているセルを選択します。
2. 「データ」タブに移動して、「テキストを列に分割」をクリックします。
   
3. 「テキストを列に分割ウィザード」で「区切り文字」を選択し、「次へ」をクリックします。
   
4. ステップ2で、「区切り文字」の下にある「その他」オプションをチェックし、「その他」オプションの横のボックスをクリックして「Ctrl + J」キーを押してから「次へ」をクリックします。スクリーンショットをご覧ください：
   
5. ステップ3で、結果を配置するセルを指定し、「完了」ボタンを直接クリックして操作を終了します。
   
6. これで、すべてのセルの内容が次のスクリーンショットのように複数の列に分割されました：
   

Kutools for Excelを使用

Kutools for Excelは、カンマやキャリッジリターンなどの特定の区切り文字に基づいてセルの内容を複数の列に迅速に分割できる使いやすい機能を提供します。直感的なインターフェースと簡単な操作により、データ処理をより効率的かつスムーズに行うことができます！

1. 分割したいデータ範囲を選択します。
2. 「Kutools」>「結合と分割」>「セルの分割」をクリックします。スクリーンショットをご覧ください：
   
3. 「セルの分割」ダイアログボックスで、「タイプ」セクションの「データの分割」オプションを選択し、「指定方法」セクションの「新しい行を開始するシンボル」をチェックします。スクリーンショットをご覧ください：
   
4. 「OK」ボタンをクリックすると、結果を出力するセルを選択するように求めるポップアップボックスが表示されます。スクリーンショットをご覧ください：
   
5. 「OK」をクリックすると、選択したすべてのセルの値がキャリッジリターンによって複数の列に分割されます。スクリーンショットをご覧ください：
   

TEXTSPLIT関数を使用（Excel 365）

Excel 365ユーザーの場合、TEXTSPLIT関数はセルを分割するための動的な方法を提供します。

結果を出力するために空白のセルに以下の数式を入力し、「Enter」を押すと、テキストが自動的に列に分割されます。そして、数式セルをドラッグして他のセルを埋めます。スクリーンショットをご覧ください：

=TEXTSPLIT(A1, CHAR(10))

キャリッジリターンに基づいてセルを複数の行に分割

キャリッジリターンで区切られた複数行のテキストを含むセルの内容を、以下のスクリーンショットのように個別の行に分割する必要がある場合、Excelはこれを実現するためのいくつかの効率的な方法を提供します。このセクションでは、これらの技術をステップバイステップで探り、最適な解決策を見つけるお手伝いをします。

VBAコードを使用

マクロに慣れているユーザーにとって、VBAは強力なソリューションを提供します。

1. 「ALT」+「F11」キーを押し続けると、「Microsoft Visual Basic for Applications」ウィンドウが開きます。
2. 「挿入」>「モジュール」をクリックし、以下のコードを「モジュール」ウィンドウに貼り付けます。
   VBAコード：キャリッジリターンに基づいてセルを複数の行に分割

   Sub SplitCells()
   'Update by Extendoffice
   Dim Rng As Range
   Dim WorkRng As Range
   On Error Resume Next
   xTitleId = "KutoolsforExcel"
   Set WorkRng = Application.Selection
   Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
   For Each Rng In WorkRng
       lLFs = VBA.Len(Rng) - VBA.Len(VBA.Replace(Rng, vbLf, ""))
       If lLFs > 0 Then
           Rng.Offset(1, 0).Resize(lLFs).Insert shift:=xlShiftDown
           Rng.Resize(lLFs + 1).Value = Application.WorksheetFunction.Transpose(VBA.Split(Rng, vbLf))
       End If
   Next
   End Sub
   

3. 「F5」キーを押してこのコードを実行すると、分割したいデータ範囲を選択するように求めるポップアップボックスが表示されます。スクリーンショットをご覧ください：
   
4. 「OK」をクリックすると、選択したデータがキャリッジリターンに基づいて複数の行に分割されます。
   

Kutools for Excelを使用

Kutools for Excelは、わずか数ステップで分割プロセスを完了するシンプルで効率的な方法を提供します。以下は詳細な手順です：

1. 分割したいデータ範囲を選択します。
2. 「Kutools」>「結合と分割」>「データを複数行に分割」をクリックします。スクリーンショットをご覧ください：
   
3. 「データを複数行に分割」ダイアログボックスで、「区切り文字」セクションの「新しい行」を選択します。
   
4. 次に、「OK」ボタンをクリックします。すべてのセルがキャリッジリターンに基づいて複数の行に分割されます。
   

TEXTSPLIT関数を使用（Excel 365）

TEXTSPLIT関数は、セルを動的に行に分割することもできます。

結果を出力するために空白のセルに以下の数式を入力し、「Enter」を押すと、テキストが自動的に行に分割されます。スクリーンショットをご覧ください：

=TRIM(TEXTSPLIT(TEXTJOIN(CHAR(10),,A1:A4),,CHAR(10)))

各方法には、使用しているExcelのバージョンや習熟度に応じて利点があります。適切な方法を選べば、簡単にデータを操作して要件を満たすことができます。さらに多くのExcelのヒントやコツに興味がある場合、当社のウェブサイトでは数千ものチュートリアルを提供しています。ご閲覧いただきありがとうございます。今後も役立つ情報を提供できることを楽しみにしています！

関連記事：