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

ExcelでXNUMXつのセルの内容をすばやく交換するにはどうすればよいですか?

ワークシートを処理するときに、XNUMXつのセルの内容を交換する必要がある場合があります。 通常、私たちのほとんどは、コンテンツを交換するための「切り取り、貼り付け、コピー」を知っていますが、時間がかかります。 Excelのセルの内容をすばやく交換する方法について説明します。

隣接するXNUMXつのセルの内容を手動で交換します
隣接していないXNUMXつのセルの内容をVBAコードと交換します
数回クリックするだけで、XNUMXつのランダムなセルの内容を簡単に交換できます


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

場合によっては、4つの隣接するセルを交換する必要があります。 手動で簡単に行うことができます。 次のスクリーンショットを見てください。セルA4とBXNUMXを交換したいので、次のようにしてください。

doc-swap-cells1

1。 交換するセルを選択します。 この例では、セルA4を選択します。

2。 押す シフト キーを押して、カーソルを右の境界に置きます。

3。 次に、カーソルをセルB4の右側の境界線にドラッグします。

4。 「」、マウスを放します。

5。 そして、XNUMXつのセルの内容が交換されました。 スクリーンショットを参照してください:

doc-swap-cells2

この方法では、隣接するXNUMXつの行または列を交換することもできます。

ExcelでXNUMXつのセルまたは範囲の内容をすばやく交換します。

Kutools for Excel's 範囲を交換する 以下のデモに示すように、ユーティリティを使用すると、Excelで指定したXNUMXつのセルまたは範囲を一度に簡単に交換できます。
ダウンロードして今すぐ試してみてください! (30 日間の無料トレイル)

セルを交換する1


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

ドキュメントスワップ範囲1

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

ドキュメントスワップ範囲1

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


数回クリックするだけで、XNUMXつのランダムなセルの内容を簡単に交換できます

Kutools for Excel's 範囲を交換する ユーティリティを使用すると、隣接するXNUMXつのセル、行、または列を交換できるだけでなく、隣接していないXNUMXつのセル、行、または列を簡単に切り替えることもできます。

申請する前に Kutools for Excelについては 最初にダウンロードしてインストールします.

1。 クリック クツール > レンジ > 範囲を交換する、スクリーンショットを参照してください:

2。 の中に 範囲を交換する ダイアログボックスでは、次のことを行う必要があります。

  • (1)最初をクリックします doc-replace-range-names-7 ボタンの スワップ範囲1 ボックスをクリックして、交換するセルを選択します。
  • (2)XNUMX番目をクリックします doc-replace-range-names-7 からのボタン スワップ範囲2 ボックスをクリックして、交換するセルを選択します。
    ヒント:機能を適用する前に1つの範囲を選択すると、選択した2つの範囲が[スワップ範囲XNUMX]ボックスと[スワップ範囲XNUMX]ボックスに別々に表示されます。
  • (3)をクリックします OK

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

ドキュメントスワップ範囲1

  このユーティリティの無料トライアル(30日)が必要な場合は、 クリックしてダウンロードしてください、次に、上記の手順に従って操作を適用します。


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


関連記事:

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

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

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (12)
Rated 2.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
The vba is pants because it loses formulas and formatting. It's incredible that Excel has been through like about 25 different versions and STILL doesn't have the facility in it natively to swap two ranges/non-adjacent cells around. Sort it out Microsoft!
Rated 2.5 out of 5
This comment was minimized by the moderator on the site
Legyenszíves Megírni melyik az a müszak gomb.
Köszönöm Üdv Ádám
This comment was minimized by the moderator on the site
this isn't working for me. I don't know why
This comment was minimized by the moderator on the site
Koje njesra... na kraju cu ipak raditi copy paste... Umesto da su ubacili swap opciju na padajucem menju....
This comment was minimized by the moderator on the site
Cool trick that saved me a lot of time. Thank you!
This comment was minimized by the moderator on the site
First option work well for me thanks for your efforts... :-)
This comment was minimized by the moderator on the site
Thanks !! works perfectly for me..
This comment was minimized by the moderator on the site
Thanks !! works perfectly for me..
This comment was minimized by the moderator on the site
Thank you for the information!!!
This comment was minimized by the moderator on the site
You could just cut (non-adjacent) Cell A into an unoccupied cell, paste required cell B into that space then put A into the cell B formerly occupied couldn't you?
This comment was minimized by the moderator on the site
It's not as simple as you suggested when cells have formula in them. And this also helps in inserting multiple cells at any desired location as well.
This comment was minimized by the moderator on the site
Yes you could, but why go such a roundabout way when you can do it much faster this way. Thanks ExtendOffice for your good work.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations