Excel で 2 つのセルまたは範囲の内容をすばやく入れ替える

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

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

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

時々、隣接する 4 つのセルを交換する必要がある場合があります。これは、それほど手間をかけずに手動で行うことができます。スクリーンショットに示すように、セル A4 と BXNUMX を交換する手順は次のとおりです。

1. 交換するセルを1つ選択します。たとえば、セルを選択します。 A4.
2. 押したまま シフト キーを押し、選択したセルの右境界にカーソルを置きます。
3. カーソルをセル B4 の右境界まで慎重にドラッグします。
4. カーソルが「工「 」記号が表示されたら、マウスを放します。
   

下のスクリーンショットに示すように、2 つのセルの内容が入れ替わるはずです。

数回クリックするだけで、2つのセルまたは範囲の内容を簡単に入れ替えることができます。

隣接していないセルや範囲を交換する必要がある場合は、Excelアドインを使用して Kutools for Excel プロセスを大幅に簡素化できます。

Kutools for Excelをインストールしたら、 クツール > レンジ > 範囲を交換する を開く 範囲を交換する ダイアログボックスを開き、次のように設定します。

1. スワップ範囲1 セクションで、交換する最初のセルまたは範囲を選択します。
2. スワップ範囲2 セクションで、交換する 2 番目のセルまたは範囲を選択します。
   ヒント: 簡単にするために、スワップ範囲ダイアログを開く前に、2つの範囲を事前に選択しておくことができます。事前に選択された範囲は、「スワップ範囲1"と"スワップ範囲2それぞれ「」ボックスに入力します。
3. クリック OK
   

結果

次に、選択したXNUMXつのセルまたは範囲がすぐに交換されます。 スクリーンショットを参照してください：

隣接していないXNUMXつのセルの内容をVBAコードと交換します

XNUMXつのセルが隣接していない場合、上記の方法は機能しません。 それらをVBAコードと交換できます。

1。 プレス Ctrlキー キーを押して、スワップするXNUMXつの隣接していないセルを選択します。

2に設定します。 OK をクリックします。 Developer>ビジュアルベーシック、新しいです アプリケーション用のMicrosoftVisual Basic ウィンドウが表示されたら、をクリックします インセット>モジュール、次のコードをに入力します モジュール:

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。 次に、をクリックします ボタンをクリックしてコードを実行すると、スワップするXNUMXつのセルを選択するためのダイアログが表示されます。 スクリーンショットを参照してください：

4。 クリック Ok ポップアップダイアログで、選択したXNUMXつのセルが交換されます。 スクリーンショットを参照してください：

注意： このVBAコードは、XNUMXつのセルのフォーマットを入れ替えることはできません。

デモ：XNUMXつのランダムなセルコンテンツをKutools forExcelで交換します

関連記事：

• Excelで行または列を交換する方法は？