Excelで列を行に転置し、新しい行を挿入してデータを下方向に埋めるにはどうすればよいですか？

Author Sun Last modified 2025-08-26

この記事では、以下のようなスクリーンショットで示されるように、列を行に転置し、新しい行を挿入してデータを下方向に埋めるVBAコードを紹介します。この操作に興味がある場合は、詳細は以下の内容をご覧ください。
transpose columns to rows

VBAを使用して転置と行の挿入を行う

VBAを使用して転置と行の挿入を行う

範囲を転置し、同じデータを下方向に埋めるために行を挿入する直接的な方法はありませんが、ここではこのタスクを迅速に解決するためのVBAコードを紹介します。

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

2. 挿入 > モジュール をクリックし、以下のVBAコードをモジュールウィンドウに貼り付けます。スクリーンショットをご覧ください：

VBA: 転置と行の挿入

 Sub TransposeInsertRows()
'UpdatebyExtendoffice20161125
    Dim xRg As Range
    Dim i As Long, j As Long, k As Long
    Dim x As Long, y As Long
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    Application.ScreenUpdating = False
    x = xRg(1, 1).Column + 2
    y = xRg(1, xRg.Columns.Count).Column
    For i = xRg(xRg.Rows.Count, 1).Row To xRg(1, 1).Row Step -1
        If Cells(i, x) <> "" And Cells(i, x + 1) <> "" Then
            k = Cells(i, x - 2).End(xlToRight).Column
            If k > y Then k = y
            For j = k To x + 1 Step -1
                Cells(i + 1, 1).EntireRow.Insert
                With Cells(i + 1, x - 2)
                    .Value = .Offset(-1, 0)
                    .Offset(0, 1) = .Offset(-1, 1)
                    .Offset(0, 2) = Cells(i, j)
                End With
                Cells(i, j).ClearContents
            Next j
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

copy and paste the vba code into the module

3. 実行するには F5 キーを押してコードを実行し、ポップアップするダイアログで転置および行の挿入を行いたいデータ範囲を選択します。スクリーンショットをご覧ください：
vba code to select the data range

4. OKをクリックします。そして、選択した範囲は以下のスクリーンショットのように変換されます。
he selected range has been converted

注釈: コードを実行する前に、元のデータのコピーを保存しておくことをお勧めします。

ヒント: 二次元テーブルを一次元テーブルに、またはその逆に素早く転置したい場合、Kutools for Excel の「テーブルの次元を変換」機能をお試しください。次のスクリーンショットに示されている通りです。この機能は 30 日間完全無料でお試しいただけますので、ぜひ今すぐダウンロードして無料体験版をお試しください。

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

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