Excelでセルの値を縦に分割するにはどうすればよいですか？

Excelで作業しているとき、単一の行または複数の行にある複数の値を縦のリストに変換する必要がある場合があります。これは特に、データが横方向に保存されているが、列形式で処理または分析する必要がある場合に便利です。

このガイドでは、セルの値を縦に変換するための3つの効率的な方法を紹介します：

Excelでセルの値を行に縦に分割する

• 数式を使用（Excel 365） – 動的かつ自動的な変換に最適
• Kutools for Excelを使用 – すべてのExcelバージョンに対応した専用ツールによる迅速で簡単な解決策
• VBAコードを使用 – すべてのExcelバージョンでのプロセスの自動化に理想的

数式（Excel 365）でセルの値を行に縦に分割する

Excel 365をお持ちの場合は、TEXTSPLIT、TEXTJOIN、およびTRANSPOSE関数を使用して、手動操作なしでセルの値を縦に変換できます。

次の数式を空白のセルにコピーして貼り付け、「Enter」キーを押すと、Excelはデータを複数の行に自動的に展開します。スクリーンショットをご覧ください：

=TRANSPOSE(TEXTSPLIT(TEXTJOIN(";", TRUE, A1:A4), ";"))

Kutools for Excelを使用してセルの値を行に縦に分割する

Excel 2019以前のバージョンを使用している場合、「Kutools for Excel」を使用できます。これは、データを簡単に変換および管理するための専用ツールを備えた強力なアドインです。「Split Data to Rows」機能を使用すると、必要な任意の区切り文字に基づいてセルの値をシームレスに縦に変換できます。

「Kutools for Excel」をインストール後、次のように操作してください：

1. 「Kutools」>「Merge & Split」>「Split Data to Rows」をクリックしてください。スクリーンショットをご覧ください：
   
2. 「Split Data to Rows」ダイアログボックスで、次の操作を指定します：
   • 分割したいセルを選択します；
   • 「Delimiter」セクションで、セル内容をどのように分割するかを定義する区切り文字を選択します。ここでは「セミコロン」を選択します。
   • 最後に「OK」ボタンをクリックします。
     

結果: データは縦の列に変換されます。

VBAコードを使用してセルの値を行に縦に分割する

上級ユーザーの場合、VBAはセルの値を縦に分割するプロセスを自動化する堅牢なソリューションを提供します。以下のVBAコードを使用すると、任意のカスタム区切り文字を使用してセルの内容を行に簡単に分割できます。

1. 「ALT」+「F11」キーを押して「Microsoft Visual Basic for Applications」ウィンドウを開きます。

2. 「Insert」>「Module」をクリックし、以下のコードを「Module」ウィンドウに貼り付けます。

VBAコード: 特定の区切り文字でセルの値を行に縦に分割する

Sub splitvertically()
'updatebyExtendoffice
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim xStr As String
    Dim xOutArr As Variant
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOutRg = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xStr = "" Then
            xStr = xCell.Value
        Else
            xStr = xStr & ";" & xCell.Value
        End If
    Next
    xOutArr = VBA.Split(xStr, ";")
    xOutRg.Range("A1").Resize(UBound(xOutArr) + 1, 1) = Application.WorksheetFunction.Transpose(xOutArr)
End Sub

3. 次に「F5」キーを押してこのコードを実行すると、縦に分割したいセル値を選択するように促すポップアップボックスが表示されます。スクリーンショットをご覧ください：

4. 「OK」ボタンをクリックすると、結果を配置するセルを選択するように促す別のボックスが表示されます。スクリーンショットをご覧ください：

5. 「OK」ボタンをクリックすると、セルの値が区切り文字でリストに分割されます。スクリーンショットをご覧ください：

Excelでセルの値を縦に変換することは、複数の方法で達成でき、それぞれ独自の利点があります。これらの方法を理解することで、特定のニーズに最適なアプローチを選択し、Excelでのワークフローを最適化することができます。初心者でも上級ユーザーでも、これらのツールと技術により、データをより効果的かつ効率的に扱うことができます。さらにExcelのヒントやコツを探求したい場合、当社のウェブサイトでは数千ものチュートリアルを提供しており、Excelをマスターするお手伝いをします。