Wie kann man den Inhalt zweier Zellen in Excel schnell vertauschen?

Wie tauscht man schnell den Inhalt zweier Zellen in Excel aus?

Wenn wir ein Arbeitsblatt bearbeiten, müssen wir manchmal den Inhalt von zwei Zellen austauschen. Normalerweise kennen die meisten von uns nur „Ausschneiden, Einfügen und Kopieren“, um den Inhalt zu vertauschen, aber das ist sehr zeitaufwändig.

Manuelles Tauschen zweier angrenzender Zellinhalte
Tauschen Sie zwei nicht benachbarte Zellinhalte mit VBA-Code
Tauschen Sie zwei beliebige Zellinhalte mit nur wenigen Klicks

Manuelles Tauschen zweier angrenzender Zellinhalte

Manchmal müssen zwei aneinandergrenzende Zellen getauscht werden. Das können wir ganz einfach manuell erledigen. Schauen Sie sich den folgenden Screenshot an, ich möchte die Zellen A4 und B4 vertauschen, bitte gehen Sie wie folgt vor:

1. Markieren Sie die Zelle, die Sie vertauschen möchten. In diesem Beispiel wählen Sie die Zelle A4.

2. Drücken Sie die Umschalttaste, und setzen Sie den Cursor an den rechten Rand.

3. Ziehen Sie dann den Cursor an den rechten Rand der Zelle B4.

4. Wenn dort „工“ angezeigt wird, lassen Sie die Maus los.

5. Und schon sind die beiden Zellinhalte vertauscht. Siehe Screenshot:

Mit dieser Methode können wir auch zwei aneinandergrenzende Zeilen oder Spalten vertauschen.

Zwei nicht benachbarte Zellinhalte mit VBA-Code tauschen

Wenn die beiden Zellen nicht benachbart sind, funktioniert die obige Methode nicht. Wir können sie mit VBA-Code vertauschen.

1. Drücken Sie die Strg-Taste und markieren Sie die beiden nicht benachbarten Zellen, die Sie vertauschen möchten.

2. Klicken Sie auf Entwickler>Visual Basic, ein neues Microsoft Visual Basic für Anwendungen-Fenster wird angezeigt, klicken Sie auf Einfügen>Modul, und geben Sie den folgenden Code in das Modul ein:

Sub SwapTwoRange()'Updateby20131120Dim Rng1 As Range, Rng2 As RangeDim arr1 As Variant, arr2 As VariantxTitleId = "KutoolsforExcel"Set Rng1 = Application.SelectionSet Rng1 = Application.InputBox("Range1:", xTitleId, Rng1.Address, Type:=8)Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)Application.ScreenUpdating = Falsearr1 = Rng1.Valuearr2 = Rng2.ValueRng1.Value = arr2Rng2.Value = arr1Application.ScreenUpdating = TrueEnd Sub

3. Klicken Sie dann auf die Schaltfläche , um den Code auszuführen, dann wird ein Dialog angezeigt, in dem Sie die beiden Zellen auswählen können, zwischen denen Sie tauschen möchten. Siehe Screenshots:

4. Klicken Sie im eingeblendeten Dialog auf Ok, die beiden ausgewählten Zellen werden vertauscht. Siehe Screenshots:

Hinweise: Dieser VBA-Code kann die Formatierung der beiden Zellen nicht vertauschen.

Mit nur wenigen Klicks zwei beliebige Zellinhalte vertauschen

Mit dem Dienstprogramm „Bereiche tauschen“ von Kutools für Excel können wir nicht nur zwei benachbarte Zellen, Zeilen oder Spalten vertauschen, sondern auch zwei nicht benachbarte Zellen, Zeilen oder Spalten ganz einfach.

Bevor Sie Kutools for Excel anwenden, laden Sie es bitte zunächst herunter und installieren es.

1. Klicken Sie auf Kutools > Range > Swap Ranges, siehe Bildschirmfoto:

2. Im Dialogfeld „Bereiche tauschen“ müssen Sie:

• (1) im Feld „Bereich tauschen 1“ auf die erste Schaltfläche klicken, um die Zellen auszuwählen, die Sie tauschen möchten.
• (2) klicken Sie auf die zweite -Schaltfläche im Feld Swap Range 2, um die Zellen auszuwählen, mit denen Sie tauschen möchten.
  Tipps: Sie können die beiden Bereiche auswählen, bevor Sie die Funktion anwenden, dann sehen Sie, dass die beiden ausgewählten Bereiche in den Feldern „Bereich 1 tauschen“ und „Bereich 2 tauschen“ separat angezeigt werden.
• (3) Klicken Sie auf die Schaltfläche OK.

Dann werden die beiden ausgewählten Zellen oder Bereiche sofort getauscht. Siehe Screenshots:

Wenn Sie eine kostenlose Testversion (30 Tage) dieses Dienstprogramms haben möchten, klicken Sie bitte, um es herunterzuladen, und gehen Sie dann, um die Operation gemäß den obigen Schritten anzuwenden.

Demo: Zwei zufällige Zellinhalte mit Kutools für Excel vertauschen

Verwandter Artikel:

• Wie kann man in Excel Zeilen oder Spalten vertauschen?