Snel de inhoud van twee cellen of bereiken in Excel omwisselen

Het omwisselen van de inhoud van twee cellen of bereiken in Excel is een veelvoorkomende behoefte bij het reorganiseren van gegevens, het aanpassen van lay-outs of het corrigeren van invoerfouten. Deze handleiding introduceert drie methoden om snel en efficiënt inhoud in Excel om te wisselen, zodat je je gegevens kunt wijzigen zonder uitgebreid knippen en plakken, wat tijd bespaart en het risico op fouten verkleint.

Handmatig twee aangrenzende celinhouden omwisselen
Eenvoudig de inhoud van twee cellen of bereiken omwisselen met slechts enkele klikken
Twee celinhouden omwisselen met VBA-code

Handmatig twee aangrenzende celinhouden omwisselen

Af en toe moet je mogelijk twee aangrenzende cellen omwisselen. Dit kan handmatig worden gedaan zonder veel moeite. Hieronder staan de stappen om cellen A4 en B4 om te wisselen, zoals te zien is in de schermafbeeldingen:

1. Selecteer een van de cellen om te wisselen: Selecteer bijvoorbeeld cel A4.
2. Houd de Shift-toets ingedrukt en plaats je cursor op de rechterrand van de geselecteerde cel.
3. Sleep voorzichtig de cursor naar de rechterrand van cel B4.
4. Zodra de cursor een "工"-symbool weergeeft, laat je de muis los.

De inhoud van de twee cellen zou nu moeten zijn omgewisseld, zoals te zien is in de onderstaande schermafbeelding.

Eenvoudig de inhoud van twee cellen of bereiken omwisselen met slechts enkele klikken

Voor gebruikers die niet-aangrenzende cellen of bereiken moeten omwisselen, kan het gebruik van een Excel-invoegtoepassing zoals Kutools voor Excel het proces aanzienlijk vereenvoudigen.

Na het installeren van Kutools voor Excel, selecteer Kutools > Bereik > Bereiken omwisselen om het dialoogvenster Bereiken omwisselen te openen, en configureer vervolgens als volgt.

1. In het gedeelte Bereik 1 om te wisselen, selecteer het eerste cel of bereik dat je wilt omwisselen.
2. In de Bereik 2 om te wisselen sectie, selecteer het tweede cel of bereik waarmee je wilt omwisselen.
   Tips: Voor gemak kun je de twee bereiken vooraf selecteren voordat je het dialoogvenster Bereiken omwisselen opent. De vooraf geselecteerde bereiken verschijnen automatisch in de vakken "Bereik 1 om te wisselen" en "Bereik 2 om te wisselen".
3. Klik op de OK-knop.
   

Resultaat

De twee geselecteerde cellen of bereiken worden onmiddellijk omgewisseld. Zie schermafbeeldingen:

Twee niet-aangrenzende celinhouden omwisselen met VBA-code

Wanneer de twee cellen niet-aangrenzend zijn, werkt de bovenstaande methode niet. We kunnen ze omwisselen met VBA-code.

1. Druk op de Ctrl-toets en selecteer de twee niet-aangrenzende cellen die je wilt omwisselen.

2. Klik op Ontwikkelaar>Visual Basic, er wordt een nieuw Microsoft Visual Basic for Applications-venster weergegeven, klik op Invoegen>Module, en voer de volgende code in de Module in:

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. Klik vervolgens op knop om de code uit te voeren, dan wordt een dialoogvenster weergegeven waarin je de twee cellen kunt selecteren die je wilt omwisselen. Zie schermafbeeldingen:

4. Klik op Ok in het pop-updialoogvenster, de twee geselecteerde cellen zijn omgewisseld. Zie schermafbeeldingen:

Opmerkingen: Deze VBA-code kan de opmaak van de twee cellen niet omwisselen.

Demo: Twee willekeurige celinhouden omwisselen met Kutools voor Excel

Gerelateerd artikel:

• Hoe rijen of kolommen in Excel omwisselen?