Excelで2つのセルまたは範囲の内容を迅速に交換する

Author Xiaoyang Last modified 2025-08-26

データを再編成したり、レイアウトを調整したり、入力エラーを修正する際、Excelで2つのセルや範囲の内容を入れ替える必要がよくあります。このガイドでは、Excelでの内容交換を迅速かつ効率的に行うための3つの方法を紹介します。これにより、広範な切り取りや貼り付けを行うことなくデータを変更でき、時間を節約し、エラーのリスクを軽減できます。

swap contents of two ranges

隣接する2つのセルの内容を手動で交換する
 数回のクリックだけで2つのセルまたは範囲の内容を簡単に交換する
VBAコードを使用して2つのセルの内容を入れ替える

隣接する2つのセルの内容を手動で交換する

時々、隣接する2つのセルの内容を入れ替えたい場合があります。これは手動でそれほど労力をかけずに実行できます。以下は、スクリーンショットに示されているように、セルA4とB4を入れ替える手順です：

sample data

入れ替えたいセルの一方を選択します。例えば、セルA4を選択します。
Shiftキーを押しながら、選択したセルの右端にカーソルを置きます。
カーソルを慎重にセルB4の右端までドラッグします。
カーソルに「工」のシンボルが表示されたら、マウスを離します。

これで、2つのセルの内容が入れ替わり、以下のスクリーンショットに示されています。

the two cells are swapped

数回のクリックだけで2つのセルまたは範囲の内容を簡単に交換する

非隣接セルや範囲を入れ替えたい場合、Kutools for ExcelのようなExcelアドインを使用することでプロセスを大幅に簡素化できます。

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

Kutools for Excelをインストール後、Kutools > 範囲 > 範囲の入れ替え を選択して「 範囲の入れ替え」ダイアログを開き、次のように設定します。

「入れ替える範囲1」セクションで、入れ替えたい最初のセルまたは範囲を選択します。
「 入れ替える範囲2 」セクションで、入れ替えたい2番目のセルまたは範囲を選択します。
ヒント: 便利なように、「範囲の入れ替え」ダイアログを開く前に2つの範囲を選択しておくことができます。事前に選択された範囲は自動的に「入れ替える範囲1」と「入れ替える範囲2」のボックスにそれぞれ表示されます。
OKボタンをクリックします。

結果

これで、選択した2つのセルまたは範囲が即座に入れ替わります。スクリーンショットをご覧ください：

two selected ranges are swapped

このユーティリティを無料で試用したい場合（30日間）、こちらをクリックしてダウンロードし、上記の手順に従って操作を適用してください。

VBAコードを使用して2つの非隣接セルの内容を入れ替える

2つのセルが非隣接している場合、上記の方法は機能しません。その場合は、VBAコードを使用して入れ替えます。

1. Ctrlキーを押しながら、入れ替えたい2つの非隣接セルを選択します。

2. 開発タブ>Visual Basicをクリックすると、新しいMicrosoft Visual Basic for Applicationsウィンドウが表示されます。挿入>モジュールをクリックし、次のコードをモジュールに入力します：

Sub SwapTwoRange()
'Updateby20131120
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant, arr2 As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1:", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Application.ScreenUpdating = False
arr1 = Rng1.Value
arr2 = Rng2.Value
Rng1.Value = arr2
Rng2.Value = arr1
Application.ScreenUpdating = True
End Sub

3その後、ボタンをクリックしてコードを実行すると、入れ替えたい2つのセルを選択するためのダイアログが表示されます。スクリーンショットをご覧ください：

select two range separately

4. 表示されたダイアログで「OK」をクリックすると、選択した2つのセルが入れ替わります。スクリーンショットをご覧ください：

the two selected ranges are swapped

注意: このVBAコードでは、2つのセルの書式設定は入れ替えられません。

デモ: Kutools for Excelを使用して2つのランダムなセルの内容を入れ替える

Excelで行や列を入れ替えるにはどうすればよいですか？

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

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