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

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

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

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

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

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

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

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

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

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

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

結果

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

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つのセルを選択するためのダイアログが表示されます。スクリーンショットをご覧ください：

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

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

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

関連記事：

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