Excelでセルの内容を複数の行に分割する方法（シナリオとツールの比較）

=TRANSPOSE(TEXTSPLIT(A1,","))ヒント：データの区切り文字によって「,」「;」「|」などに変更できます。

ステップ2．Enterキーを押します。

メリット	デメリット
完全に動的で、変更があれば自動で更新されます。 プラグインや手作業は不要です。	TEXTSPLITや動的配列に対応したExcel（Excel365）のみで利用可能です。

---

方法3：Power Query－ 行の分割と展開（Microsoft2016以降）

Power Queryは、構造化データや繰り返し処理に最適です。パワフルで一括変換や更新にも対応しています。

適しているケース：シナリオ1（対象セルのみ分割）、シナリオ2（セルを分割し他の列データも保持）の両方に対応

手順：シナリオ1（対象セルのみ分割）例

ステップ1．対象範囲を選択し、「データ」>「データの取得と変換」>「テーブルまたは範囲から」をクリックします。

an

ステップ2．テーブルの作成で「OK」をクリック。（範囲にヘッダーがある場合、「先頭行をテーブルの見出しとして使用する」にチェック）

ステップ3．Power Queryエディターで「区切り記号で列を分割」を選択。

ステップ4．区切り記号を選択または入力し、「詳細」でオプションを表示、「行に分割」を選び、OKをクリックします。

ステップ5．「閉じて読み込む」または「閉じて別の場所に読み込む」を選択します。

シナリオ2（セル分割時に他の列を保持）でも手順は同様です。結果を確認しましょう。

対象範囲：

結果：

注意：Power Queryエディターでは、分割したい列だけを選択し、「区切り記号で列を分割」をクリックしてください。

メリット	デメリット
完全自動化されます。 大量データでもスケーラブルです。	多少の学習が必要です。 新しいデータには「更新」操作が必要です。

ヒント：トリムやクリーン手順を追加して、空白や特殊文字を修正できます。

---

方法4：Kutoolsプラグイン－クリック操作で分割

頻繁にセル分割を行いたい、もしくはGUIベースのツールを好む方には、Kutoolsが非常に便利です。複雑な操作も数クリックで完結できます。

適しているケース：シナリオ1（対象セルのみ分割）、シナリオ2（セルを分割し他の列データも保持）の両方に対応

手順：シナリオ1（対象セルのみ分割）

ステップ1．対象セルを選択します。

ステップ2．Kutools > 結合・分割 > セルの分割 を選択します。

ステップ3．「行に分割」を選び、区切り文字を指定してOKをクリックします。

ステップ4．出力先セルを選び、OKをクリックします。

今すぐダウンロード

手順：シナリオ2（セルを分割し他の列データも保持）

ステップ1．行に分割したい列を選択します。

ステップ2．Kutools > 結合・分割 > 複数行に分割する を選択します。

ステップ3．区切り文字を設定し、OKをクリックします。

シナリオ2（セル分割時に他の列を保持）でも同様の手順です。結果を見てみましょう。

対象範囲：

結果：

メリット	デメリット
非常に使いやすいです。 大量データも少ないクリックで処理可能です。	プラグインが必要（すべての機能は無料ではありません）。

今すぐダウンロード

注意：30日間の試用版では全機能をテストできます。

---

方法5：VBAスクリプト－ 完全なカスタム制御

プログラミングの知識がある利用者は、VBAで最大限の柔軟性を実現できます。レイアウトや業務ルールに合わせてスクリプトを自由にカスタマイズ可能です。

適しているケース：シナリオ1（対象セルのみ分割）、シナリオ2（セルを分割し他の列データも保持）の両方に対応

手順：

ステップ1．Alt＋F11でVBAエディタを開きます。

ステップ2．「挿入」＞「モジュール」をクリックします。

ステップ3．下記のVBAコードをコピー＆ペーストします。

シナリオ1 対象セルのみ分割

'Update by Extendoffice
Sub SplitCellToRows_Simple()
    Dim InputCell As Range
    Dim Values As Variant
    Dim i As Long

  
    Set InputCell = Range("A1") ' change A1 to your target cell

    Values = Split(InputCell.Value, ",") 
    For i = 0 To UBound(Values)
        InputCell.Offset(i, 1).Value = Trim(Values(i))
    Next i
End Sub

シナリオ2 セルを分割し他の列データも保持

'Update by Extendoffice
Sub SplitRowsWithOtherColumns()
    Dim ws As Worksheet
    Dim LastRow As Long, i As Long
    Dim arr As Variant, j As Long
    Dim SplitVals As Variant
    Dim CurrentRow As Long

    Set ws = ActiveSheet
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    For i = LastRow To 2 Step -1
        If InStr(ws.Cells(i, 2).Value, ",") > 0 Then
            SplitVals = Split(ws.Cells(i, 2).Value, ",")

            For j = UBound(SplitVals) To 1 Step -1
                ws.Rows(i + 1).Insert Shift:=xlDown
                ws.Cells(i + 1, 1).Value = ws.Cells(i, 1).Value
                ws.Cells(i + 1, 2).Value = Trim(SplitVals(j))
            Next j

            ws.Cells(i, 2).Value = Trim(SplitVals(0))
        End If
    Next i
End Sub

注意：このVBAは、A列とB列にデータがあり、B列の値を分割する場合の設定例です。

デメリット

スクリプトを将来的にも保存するには、マクロ有効ブック（.xlsm）形式で保存してください。

💡ヒント：

• マクロを実行する前に必ずデータをバックアップしてください。
• スクリプト内の","を実際の区切り文字（例：「;」や「|」など）に置換して、データ形式に合わせましょう。

---

よくある問題点

• 空白の行や列：末尾の区切り記号や隠れたスペースが原因の場合が多いです。
• 結合セルエラー：開始前にセルの結合を解除してください。
• Power Queryが更新されない：元データ変更後は「更新」を忘れずに。
• 区切り記号の間違い：カンマとセミコロンの取り違えで結果に影響が出ます。

---

関連する記事：

• 範囲の転置ツール：複数行をExcelで簡単に列や行に変換
• 単位変換ツール：小数・バイナリ・8進数・16進数の相互変換を素早く実行