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

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

Author: Sun Last Modified: 2025-05-23
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 アシスタント: データ分析を革命化する: インテリジェント実行   |  コード生成  |  カスタム数式の作成  |  データを分析しグラフを生成  |  拡張機能を呼び出す
人気の機能: 重複を見つけてハイライトまたはマーキング   |  空白行を削除   |  データを失わずに列またはセルを統合   |   丸める ...
スーパーLOOKUP: 複数条件のVLookup    複数値のVLookup  |   複数シートの検索   |   ファジーマッチ ....
高度なドロップダウンリスト: ドロップダウンリストを迅速に作成   |  依存ドロップダウンリスト   |  マルチセレクトドロップダウンリスト ....
列管理: 特定の数の列を追加  |  列を移動  |  非表示列の可視ステータスを切り替え  |  範囲と列を比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   強化された数式バー    ワークブック & ワークシート管理   |  オートテキスト ライブラリ (Auto Text)   |  日付ピッカー   |  データの統合   |  セルの暗号化/復号化    リストで電子メールを送信   |  スーパーフィルター   |   特殊フィルタ (太字/斜体/取り消し線をフィルタリング...) ...
トップ15のツールセット12 のテキストツール (テキストの追加, 特定の文字を削除, ...)  |  50以上 のグラフ の種類 (ガントチャート, ...)  |  40以上の実用的な 数式 (誕生日に基づいて年齢を計算する, ...)  |  19 の挿入ツール (QRコードの挿入, パスから画像を挿入, ...)  |  12 の変換ツール (単語に変換する, 通貨変換, ...)  |  7 の統合 & セルの分割ツール (高度な行のマージ, セルの分割, ...)  |  ...さらに多く

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


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

  • Word、Excel、PowerPoint、Publisher、Access、Visio、Projectでタブ付きの編集と読み取りを有効にします。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を50%向上させ、毎日数百回のマウスクリックを減らします!