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

Excel で 5 つの列から 5 行または n 行ごとに複数の列に転置すると、分析やレポート用にデータを再編成するときに非常に便利です。列 A に長いデータがあり、左のスクリーンショットに示すように、列 A から 1 行ごとに複数の列に転置するとします。このタスクには、それぞれ独自の利点があるさまざまな方法でアプローチできます。これを実現する方法について、詳細なステップバイステップのガイドを見てみましょう。

5 行または n 行ごとに XNUMX つの列から複数の列に転置します。

• 式付き
• 強力なツール - Excel用Kutools
• VBAコードあり

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

Excelでは、次の数式を適用して、n行ごとにXNUMXつの列から複数の列に転置できます。次のようにしてください。

1。 結果を入力する空白のセルに次の数式を入力します。たとえば、C1、 = INDEX（$ A：$ A、ROW（A1）* 5-5 + COLUMN（A1））、スクリーンショットを参照してください：

2。 次に、塗りつぶしハンドルを右に0つのセルにドラッグし、XNUMXが表示されるまで塗りつぶしハンドルをセルの範囲までドラッグします。スクリーンショットを参照してください。

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

Excel データを 1 つの列から複数の列に転置するのに苦労していませんか? Kutools for Excel's 変換範囲 この機能で問題を解決できます。5 行ごとに転置する必要がある場合でも、カスタムの行数で転置する必要がある場合でも、対応できます。柔軟な行変換により、XNUMX つの列から複数の列に転置する行数を自由に選択できます。シンプルで迅速で、複雑な操作は必要なく、数回クリックするだけで完了します。

インストールした後 Kutools for Excel、次のようにしてください。

1。 列のデータを選択し、をクリックします クツール > レンジ > 変換範囲、スクリーンショットを参照してください：

2。 の中に 変換範囲 ダイアログボックスで 範囲に単一の列 オプションの下に 変換タイプ、次にチェックする 固定値 下 レコードあたりの行数、次に転置する列の数を指定します 固定値 ボックス、スクリーンショットを参照してください：

3。 そして、 Ok ボタンをクリックし、ポップアウトされたボックスで、結果を出力するセルを選択してください。スクリーンショットを参照してください。

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

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

式を正しく適用できない場合は、次のVBAコードも役立ちます。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

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

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、結果を別のポップアウトボックスに配置するセルをXNUMXつ選択します。スクリーンショットを参照してください。

5。 をクリックします OK、列のデータは必要なXNUMXつの列に変換されています。スクリーンショットを参照してください。

この記事では、Excel で 5 行または n 行ごとに XNUMX つの列から複数の列に転置する効果的な方法を XNUMX つ紹介します。これらの方法はそれぞれ、Excel ツールとプログラミングのさまざまなレベルのユーザー習熟度に合わせて、Excel でデータを並べ替える異なるアプローチを提供します。Excel のヒントやコツをもっと知りたい場合は、 当社のウェブサイトでは何千ものチュートリアルを提供しています.