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

著者Xiaoyang変更日2024-11-22

Excel で2 つのセルまたは範囲の内容を入れ替える作業は、データの再編成、レイアウトの調整、入力ミスの修正などで頻繁に必要になります。本ガイドでは、Excel で内容を素早く効率的に入れ替える3 つの方法をご紹介します。これにより、手間のかかる切り取り・貼り付け作業なしにデータを修正でき、時間を節約し、エラーのリスクも軽減できます。

2つの範囲の内容を交換

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

隣接する2 つのセルの内容を手動で入れ替える

隣接する2 つのセルの内容を入れ替えたい場合がありますが、これは手動で簡単に実行できます。以下は、スクリーンショットに示されているとおり、セル A4 と B4 の内容を入れ替える手順です。

サンプルデータ

入れ替えるセルを1 つ選択します。たとえば、セルA4を選んでください。
Shiftキーを押しながら、選択したセルの右側の境界線にカーソルを合わせます。
セル B4 の右端の罫線まで、慎重にカーソルをドラッグしてください。
カーソルが「工」記号に変わったら、マウスボタンを離してください。

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

2つのセルが交換されました

数回のクリックで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 つのセルまたは範囲が即座に入れ替わります。スクリーンショットをご確認ください。

選択された2つの範囲が交換されました

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

2つの範囲を別々に選択

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

選択された2つの範囲が交換されました

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

デモ：Kutools for Excel でランダムな2 つのセルの内容を入れ替える

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

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

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

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！