メインコンテンツへスキップ

Excelで他の行を列に移動する方法は?

Author: Sun Last Modified: 2025-08-06
move every other row to column sample data

特にインポートされたデータや構造化されていないデータセットでExcelのデータを扱う場合、名前と関連する値が単一の列に垂直に並んでいることがよくあります。このデータをより読みやすく、使いやすくするには、タブ形式に変換し、他のすべての行を列に移動させる必要があります。


数式を使用して他の行を列に移動する

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

1. セルC2に以下の数式を入力し、必要に応じて数式を下にドラッグします。この数式は、2行目から始まるすべての2行目の値を取得します(名前)

=INDEX($A:$A, (ROW(A1)-1)*2 + 2)
ヒント: この数式は、現在の行番号に2を掛け、それに2を加えて正しい位置を参照します。
extract every other cell in a column with formula

2. セルD2に以下の数式を入力して、別のデータを抽出し、数式を下にドラッグしてセルを埋めます。

 =INDEX($A:$A, (ROW(A1)-1)*2 + 3)
ヒント: この数式は、年齢が含まれている行(奇数行、3行目から開始)から値を取得します。
extract every other cell in another column with formula
この数式の説明:
  • 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を使用して他の行を列に移動する

よりユーザーフレンドリーで数式を使わない解決策を好む場合、Kutools for Excelには行を列に簡単に転置できる機能があります。

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

Kutools for Excelをインストール後、以下の手順を行ってください:

  1. 「Kutools」>「範囲」>「範囲の変換」をクリックします。
    extract every other cell in a column with formula
  2. 「範囲の変換」ダイアログで、次の操作を設定します:
    • 移動したい範囲を選択します。
    • 「変換タイプ」セクションで「単一列を範囲に」をチェックします。
    • そして、「固定値」をチェックし、リスト内の「行ごとのレコード」セクションで2を選択または入力します。
    • 最後に、「OK」ボタンをクリックします。
      extract every other cell in a column with formula
  3. 次のプロンプトボックスで、結果を出力するための単一セルを選択します。スクリーンショットをご覧ください:
    extract every other cell in a column with formula
  4. 「OK」をクリックすると、Kutoolsが自動的に他のすべての行を別々の列に移動します。
    extract every other cell in a column with formula

VBAコードを使用して他の行を列に移動する

この作業を頻繁に行う場合、VBAマクロを使用してプロセスを自動化し、より迅速かつ効率的に行うことができます。

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

2. 次に「挿入」>「モジュール」をクリックして新しいモジュールウィンドウを挿入します。その後、次のVBAコードをウィンドウにコピーします。

VBA: 他のすべての行を列に移動します。

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キーを押すと、移動する範囲を選択するためのダイアログがポップアップします。スクリーンショットをご覧ください:
extract every other cell in a column with formula

4. 「OK」をクリックして、結果を出力するセルを選択するためのもう一つのダイアログを表示します。スクリーンショットをご覧ください:
extract every other cell in a column with formula

5. 「OK」をクリックすると、以下のように結果が表示されます:
extract every other cell in a column with formula


🎯 結論:

Excelで他の行を列に移動する各方法には、ニーズに応じて独自の利点があります:

  • 数式方法:小規模なデータセットでの迅速な1回限りのタスクに最適です。追加のツールは不要ですが、大規模なデータ範囲では遅くなる可能性があります。
  • Kutools for Excel:複雑な数式やコーディングなしで、クリックベースのシンプルなソリューションを好むユーザーに理想的です。Kutoolsは、迅速な変換のためにユーザーフレンドリーなインターフェースを提供します。
  • VBAマクロ:大規模なデータセットでの自動化や繰り返しタスクに最適な選択肢です。基本的なコーディングの知識が必要ですが、最大限の柔軟性を提供します。

小さなデータセットで作業している場合でも、大規模なデータセット向けのより拡張可能なソリューションが必要な場合でも、ニーズに合った方法を選んでください。さらに多くのExcelのヒントやテクニックについて知りたい場合は、当社のウェブサイトには数千ものチュートリアルがあり、Excelの習得をサポートします


関連記事:

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

🤖 Kutools AI Aide:データ分析を革新:インテリジェント実行   |  コード生成  |  カスタム数式の作成  |  データを分析してグラフを生成  |  Kutools Functions を呼び出す
人気機能重複の検索・ハイライト・マーキング   |  空白行を削除   |  データを失わず列やセルを統合   |   丸める ...
スーパーLOOKUP複数条件VLOOKUP   複数値VLOOKUP  |  複数シートの検索  |  ファジーマッチ ....
高度なドロップダウンリストすばやくドロップダウンリストを作成   |  依存型ドロップダウンリスト   |  複数選択ドロップダウンリスト ....
列の管理:特定数の列を追加  | 列を移動  | 非表示列の表示状態を切り替え |  範囲と列の比較 ...
注目機能グリッドフォーカス   |  デザインビュー  |  強化された数式バー   ワークブック&ワークシートの管理   |  オートテキスト ライブラリ (Auto Text)   |  日付ピッカー   |  データの統合   |  セルの暗号化/復号化    リスト送信で電子メールを送信   |  スーパーフィルター   |   特殊フィルタ(太字/斜体/取り消し線でフィルタ...)
トップ15ツールセット12 種類のテキストツールテキストの追加特定の文字を削除など)  |  50 種以上のグラフ タイプガントチャートなど)  |  40を超える実用的な 数式誕生日に基づいて年齢を計算する、など)  |  19種の 挿入ツールQRコードの挿入パスから画像の挿入など)  |  12種類の 変換ツール単語に変換する通貨変換など)  |  7つの 結合&分割ツール高度な行のマージセルの分割など)  |  ...さらに多数
お好きな言語でKutoolsを使用できます ― 英語、スペイン語、ドイツ語、フランス語、中国語など40以上に対応!

Kutools for ExcelでExcelスキルを強化し、かつてない効率を体験しましょう。 Kutools for Excelは300以上の高度な機能で生産性向上と時間短縮を実現します。最も必要な機能を今すぐ取得...


Office TabはOfficeにタブ表示を追加し、作業効率を大幅に向上させます

  • Word、Excel、PowerPointでタブ編集とタブ閲覧を有効にします
  • 同じウィンドウ内の新しいタブで複数のドキュメントを開いたり作成したりできます。新しいウィンドウを開く必要はありません。
  • 生産性が50%向上し、1日に何百回ものマウスクリックも削減できます!