Excel で1 行おきの行を列に移動するには、どうすればよいですか？

著者Sun変更日2025-04-02

Excel でデータを扱う際、特にインポートされたデータや非構造化データセットでは、名前とその関連値が1 つの列に縦方向に並んでいることがよくあります。こうしたデータをより読みやすく、使いやすくするには、通常、表形式に変換し、1 行おきの行を列に移動させる必要があります。

数式を使用して、1 行おきの行を列に移動する
Kutools for Excel を使用して、1 行おきの行を列に移動する
VBA を使用して、1 行おきの行を列に移動する

数式を使用して、1 行おきの行を列に移動する

これは、Excel の INDEX 関数を使って交互の行を抽出し、列として表示する簡単な方法です。名前を1 列に、年齢をその隣の列に変換したい場合は、以下の数式をご利用ください。

1。セル C2 に以下の数式を入力し、必要に応じて下方向にドラッグしてください。この数式は、行2（名前）から始まり、2 行ごとの値を取得します。

=INDEX($A:$A, (ROW(A1)-1)*2 + 2)

ヒント：この数式は、現在の行番号に2 を掛け、その後2 を加算して正しい位置を参照します。

2。セル D2 に以下の数式を入力して交互のデータを抽出し、セルを埋めるまで下方向にドラッグしてください。

 =INDEX($A:$A, (ROW(A1)-1)*2 + 3)

ヒント：この数式は、年齢を含む行（行3 から始まる奇数行）から値を取得します。

この数式の説明：

INDEX($A:$A, ...)：列 A を参照し、指定した行番号の値を返します。
ROW(A1)：現在の行番号を返します。A1 では「1」を返し、この数式を下にドラッグすると、A2（行2）、A3（行3）と自動で連番になります。
(ROW(A1)-1)*2 + 2：これは列 A から取得する行番号を計算します。

したがって、この数式は A2、A4、A6、A8…から値を取得します。つまり、行2 から始まり、2 行ごとのデータを取得することになります。

Kutools for Excel を使用して、1 行おきの行を列に移動する

数式を使わず、よりユーザーフレンドリーな方法をお探しですか？Kutools for Excel には、行を列に簡単に転置できる機能が搭載されています。

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

Kutools for Excel をインストール後、以下の手順に従って操作してください。

Kutools ＞範囲＞［範囲の変換］をクリックします。
範囲の変換ダイアログで、以下の操作を設定してください。
- 1 行おきの行を移動したい範囲を選択してください。
- 変換タイプセクションで単一列を範囲に変換をオンにします。
- 次に、固定値をオンにして、「レコードあたりの行数」セクションのリストから「2」を選択するか、直接入力してください。
- 最後に、[OK]ボタンをクリックしてください。
次のプロンプトボックスで、結果を表示するセルを1 つ選択してください（スクリーンショット参照）。
［OK］をクリックすると、Kutools が自動的に1 行おきの行を個別の列に移動します。

VBA コードを使用して、1 行おきの行を列に移動する

この作業を頻繁に行う必要がある場合は、VBA マクロでプロセスを自動化すれば、より迅速かつ効率的に実行できます。

1。キーボードで Alt キーと F11 キーを同時に押して、「Microsoft Visual Basic for Applications」ウィンドウを開きます。

2。「挿入」＞「標準モジュール」をクリックして新しいモジュールウィンドウを挿入し、そのウィンドウに次の VBA コードをコピーしてください。

VBA：1 行おきの行を列に移動する。

Sub MoveRange()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set InputRng = InputRng.Columns(1)
For i = 1 To InputRng.Rows.Count Step 2
    OutRng.Resize(1, 2).Value = Array(InputRng.Cells(i, 1).Value, InputRng.Cells(i + 1, 1).Value)
    Set OutRng = OutRng.Offset(1, 0)
Next
End Sub

3。キーボードの［実行］ボタンまたは F5 キーを押すと、移動範囲を選択するダイアログが表示されます（スクリーンショット参照）。
数式を使用して列内の他のセルを抽出

4。次に、[OK]をクリックして、結果を出力するセルを選択する別のダイアログを表示します（スクリーンショット参照）。
数式を使用して列内の他のセルを抽出

5。［OK］をクリックすると、以下のように結果が表示されます。
数式を使用して列内の他のセルを抽出

🎯 結論：

Excel で1 行おきの行を列に移動する方法にはそれぞれ独自の利点があり、あなたのニーズに合わせて最適なものを選べます。

数式による方法：小規模なデータセットで簡単かつ一度限りの作業を行うのに最適です。追加ツールは不要ですが、大規模な範囲では処理が遅くなる可能性があります。
Kutools for Excel：複雑な数式やコーディングを使わず、シンプルなクリック操作で解決したいユーザーに最適です。Kutools は、素早く変換できるユーザーフレンドリーなインターフェースを提供します。
VBA マクロ：大規模なデータセットの処理や繰り返し作業の自動化に最適です。基本的なコーディング知識は必要ですが、最高レベルの柔軟性を実現します。

小規模なデータセットを扱っている場合でも、大規模なデータセット向けのスケーラブルなソリューションが必要な場合でも、あなたのニーズにぴったりの方法をお選びください。さらに多くのExcel のヒントやテクニックを知りたいなら、当社ウェブサイトで数千ものチュートリアルをご利用いただき、Excel をマスターできます。

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！