Hoe verwissel ik snel de inhoud van twee cellen in Excel?

Hoe verwissel ik snel de inhoud van twee cellen in Excel?

Wanneer we een werkblad bewerken, moeten we soms de inhoud van twee cellen verwisselen. Normaal gesproken weten de meesten van ons gewoon “knippen, plakken en kopiëren” om de inhoud te verwisselen, maar dat is tijdrovend. We gaan het hebben over hoe u snel de inhoud van cellen in Excel kunt verwisselen.

Handmatig verwisselen van twee aangrenzende cellen
Verwissel twee niet-aangrenzende cellen met VBA code
Verwissel eenvoudig twee willekeurige cellen met slechts enkele klikken

Handmatig verwisselen van twee aangrenzende cellen

Soms zijn er twee aangrenzende cellen die moeten worden verwisseld. We kunnen dat eenvoudig handmatig doen. Kijk eens naar de volgende schermafbeelding, ik wil cel A4 en B4 verwisselen, doe dat als volgt:

1. Selecteer de cel die u wilt verwisselen. In dit voorbeeld selecteert u cel A4.

2. Druk op de Shift-toets, en plaats de cursor op de rechterrand.

3. Sleep vervolgens de cursor naar de rechterrand van cel B4.

4. Wanneer er “工” verschijnt, laat u de muis los.

5. En de twee celinhouden zijn verwisseld. Zie screenshot:

Met deze methode kunnen we ook twee aangrenzende rijen of kolommen verwisselen.

Verwissel twee niet-aangrenzende celinhouden met VBA-code

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

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

2. Klik op Developer>Visual Basic, een nieuw Microsoft Visual Basic voor toepassingen venster wordt weergegeven, klik op Insert>Module, en voer de volgende code in de Module in:

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. Klik dan op om de code uit te voeren, waarna een dialoogvenster verschijnt waarin u de twee cellen kunt selecteren waartussen u wilt verwisselen. Zie schermafbeeldingen:

4. Klik op Ok in het pop-up dialoogvenster, de twee geselecteerde cellen worden verwisseld. Zie de schermafbeeldingen:

Noten: Deze VBA-code kan de opmaak van de twee cellen niet verwisselen.

Verwissel eenvoudig twee willekeurige celinhouden met slechts enkele klikken

Met Kutools for Excel’s hulpprogramma Ranges verwisselen kunnen we niet alleen twee aangrenzende cellen, rijen of kolommen verwisselen, maar kunnen we ook eenvoudig twee niet-aangrenzende cellen, rijen of kolommen verwisselen.

Voordat u Kutools for Excel toepast, moet u het eerst downloaden en installeren.

1. Klik op Kutools > Range > Swap Ranges, zie screenshot:

2. In het dialoogvenster Verwissel bereiken moet u:

• (1) op de eerste knop in het vak Verwissel bereik 1 klikken om de cellen te selecteren die u wilt verwisselen.
• (2) klik op de tweede knop in het vak Swap Range 2 om de cellen te selecteren waarmee u wilt verwisselen.
  Tips: U kunt de twee bereiken selecteren voordat u de functie toepast, dan kunt u zien dat de geselecteerde twee bereiken afzonderlijk worden weergegeven in de vakken Verwissel bereik 1 en Verwissel bereik 2.
• (3) Klik op de OK knop.

Dan worden twee geselecteerde cellen of bereiken direct verwisseld. Zie screenshots:

Als u dit hulpprogramma gratis wilt uitproberen (30 dagen), klikt u op downloaden en voert u de bewerking volgens bovenstaande stappen uit.

Demo: Verwissel twee willekeurige celinhouden met Kutools for Excel

Gerelateerd artikel:

• Hoe verwisselt u rijen of kolommen in Excel?