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

Author Xiaoyang Last modified 2025-08-26

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))

注：上記の数式では、「A:A」は転置したい列の参照であり、「A1」は使用されている列の最初のセルです。「5」という数字は、データが配置される列の数を示しており、必要に応じて変更できます。また、リストの最初のセルはワークシートの最初の行に配置されている必要があります。

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

drag the fill handle right to cells, and go on dragging the fill handle down to the range of cells until displays 0

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

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

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

「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」をクリックし、別のポップアップボックスで結果を表示したいセルを選択します。スクリーンショットをご覧ください：

vba code to select one cell to put the result

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

the data in the column is converted to five columns

注：上記のコードでは、「5」という数字を必要に応じて他の数字に変更できます。

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

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数