1つの列から5行またはn行ごとに複数の列に転置するにはどうすればよいですか？

Excelで1つの列から5行またはn行ごとに複数の列に転置することは、データを分析やレポートのために再編成する際に非常に役立ちます。例えば、列Aに長いデータがあり、列Aから5行ごとに複数の列に転置したいとします。たとえば、A1:A5をC6:G6に、A6:A10をC7:G7に転置し、スクリーンショットの左側のように続けたいとします。このタスクはさまざまな方法でアプローチでき、それぞれ独自の利点があります。これを実現するための詳細なステップバイステップガイドをご紹介します。

1つの列から5行またはn行ごとに複数の列に転置する

• 数式を使用する
• 強力なツール - Kutools for Excel を使用する
• VBAコードを使用する

数式を使用して1つの列から5行またはn行ごとに複数の列に転置する

Excelでは、次の数式を使用して1つの列からn行ごとに複数の列に転置できます。以下の手順に従ってください：

1. 結果を表示させたい空白のセルに次の数式を入力します。

=INDEX($A:$A,ROW(A1)*5-5+COLUMN(A1))

2. 次に、フィルハンドルを右に5つのセルまでドラッグし、さらにフィルハンドルを下にドラッグして、0 が表示されるまでの範囲を選択してください。スクリーンショットをご覧ください：

Kutools for Excel を使用して1つの列から5行またはn行ごとに複数の列に転置する

1つの列から複数の列にExcelデータを転置することに不満を感じていませんか？「Kutools for Excel」の「範囲の変換」機能がその問題を解決します！5行ごと、またはカスタム行数ごとの転置が必要な場合でも対応可能です。柔軟な行変換により、1つの列から複数の列への行数を自由に選択できます。操作はシンプルで迅速、複雑な操作は不要で、数回のクリックで完了します。

「Kutools for Excel」をインストールした後、以下の手順に従ってください：

1. 列内のデータを選択し、「Kutools」>「範囲」>「範囲の変換」をクリックします。スクリーンショットをご覧ください：

2. 「範囲の変換」ダイアログボックスで、「変換タイプ」の下にある「単一列を範囲に変換」オプションを選択し、「レコードごとの行数」で「固定値」をチェックし、その後「固定値」ボックスで転置したい列数を指定します。スクリーンショットをご覧ください：

3. 「OK」ボタンをクリックすると、ポップアップウィンドウが表示されますので、結果を出力するセルを選択してください。スクリーンショットをご覧ください：

4. 「OK」ボタンをクリックすると、列データが次のスクリーンショットのように5行ごとに転置されます：

VBAコードを使用して1つの列から5行またはn行ごとに複数の列に転置する

数式を正しく適用できない場合は、次のVBAコードもお役立ていただけます。

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

2. 「挿入」>「モジュール」をクリックし、次のコードを「モジュール」ウィンドウに貼り付けます。

VBAコード：1つの列から5行またはn行ごとに複数の列に転置する：

Public Sub TransposeData()
'updateby Extendoffice
    Dim xLRow As Long
    Dim xNRow As Long
    Dim i As Long
    Dim xUpdate As Boolean
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select data range(only one column):", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Columns.Count > 1) Or _
       (xRg.Areas.Count > 1) Then
        MsgBox "the used range only contain one column", , "Kutools for Excel"
        Exit Sub
    End If
    Set xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    Set xOutRg = xOutRg.Range(1)
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xLRow = xRg.Rows.Count
    For i = 1 To xLRow Step 5
        xRg.Cells(i).Resize(5).Copy
        xOutRg.Offset(xNRow, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
        xNRow = xNRow + 1
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3. コードを貼り付けたら、「F5」キーを押して実行します。転置したい列を選択するように求めるプロンプトボックスが表示されます。スクリーンショットをご覧ください：

4. 「OK」をクリックし、別のポップアップボックスで結果を表示したいセルを選択します。スクリーンショットをご覧ください：

5. 「OK」をクリックすると、列のデータが次のスクリーンショットのように必要な5列に変換されます：

Excelで1つの列から5行またはn行ごとに複数の列に転置するには、この記事では3つの効果的な方法を紹介しています。これらの各方法は、Excelでのデータの再配置に異なるアプローチを提供し、Excelツールやプログラミングに関するユーザーの習熟度に応じて異なります。さらに多くのExcelのヒントやコツに興味がある場合、当サイトでは数千ものチュートリアルを提供しています。