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

列Aに長いデータがあり、5行ごとに列Aから複数の列に転置したいとします。たとえば、A1：A5からC6：G6、A6：A10からC7：G7などを転置します。次のスクリーンショットを示します。 Excelで繰り返しコピーして貼り付けることなく、このタスクをどのように処理できますか？

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

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

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

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

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

docは5行ごとに転置します2

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

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

docは5行ごとに転置します3

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

5行またはn行ごとにXNUMXつの列から複数の列に変換するには、 Kutools for Excel's 変換範囲 ユーティリティは、このジョブをできるだけ早く解決するのに役立ちます。また、データの範囲を単一の行または列に転置するのにも役立ちます。 クリックしてKutoolsfor Excelをダウンロードしてください！

docは5行ごとに転置します10

Kutools for Excel：300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます。 今すぐダウンロードして無料トライアル！

式を正しく適用できない場合は、次の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 キーを押して実行すると、転置する列を選択するように促すプロンプトボックスが表示されます。スクリーンショットを参照してください。

docは5行ごとに転置します4

4。次に、をクリックします OK、結果を別のポップアウトボックスに配置するセルをXNUMXつ選択します。スクリーンショットを参照してください。

docは5行ごとに転置します5

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

docは5行ごとに転置します6

Note：上記のコードでは、番号を変更できます 5 あなたが必要とする他の番号に。

あなたが持っている場合 Kutools for Excelそのと 変換範囲 ユーティリティを使用すると、XNUMXつの列または行を複数の列および行にすばやく転置できます。

Kutools for Excel : 300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます.

ダウンロードに移動
30日間の無料トライアル購入
ペイパル/マイコマース

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

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

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

docは5行ごとに転置します8

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

docは5行ごとに転置します9

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

docは5行ごとに転置します6

今すぐExcel用のKutoolsをダウンロードして無料トライアル！

最高のオフィス生産性向上ツール

🤖	Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。インテリジェントな実行 \| コードを生成 \| カスタム数式の作成 \| データを分析してグラフを生成する \| Kutools関数を呼び出す...
	人気の機能: 重複を検索、強調表示、または識別する \| 空白行を削除する \| データを失わずに列またはセルを結合する \| 数式なしのラウンド ...
	スーパールックアップ: 複数の基準の VLookup \| 複数の値の VLookup \| 複数のシートにわたる VLookup \| ファジールックアップ ....
	詳細ドロップダウンリスト: ドロップダウンリストを素早く作成する \| 依存関係のドロップダウンリスト \| 複数選択のドロップダウンリスト ....
	列マネージャー: 特定の数の列を追加する \| 列の移動 \| Toggle 非表示列の表示ステータス \| 範囲と列の比較 ...
	注目の機能: グリッドフォーカス \| デザインビュー \| ビッグフォーミュラバー \| ワークブックとシートマネージャー \| リソースライブラリ (自動テキスト) \| 日付ピッカー \| ワークシートを組み合わせる \| セルの暗号化/復号化 \| リストごとにメールを送信する \| スーパーフィルター \| 特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
	上位 15 のツールセット: 12 テキストツール (テキストを追加, 文字を削除する、...） \| 50+ チャート種類 (ガントチャート、...） \| 40+ 実用的式 (誕生日に基づいて年齢を計算する、...） \| 19 挿入ツール (QRコードを挿入, パスから画像を挿入、...） \| 12 変換ツール (数字から言葉へ, 通貨の換算、...） \| 7 マージ＆スプリットツール (高度な結合行, 分割セル、...） \| ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。最も必要な機能を入手するにはここをクリックしてください...

続きを読みます... 無料ダウンロード...

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作業をはるかに簡単にします

Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
生産性を 50% 向上させ、毎日何百回もマウスクリックを減らすことができます!

続きを読みます... 無料ダウンロード...

Comments (15)

Rated 5 out of 5 · 1 ratings

Stéphane

about 1 year ago

#41727