Celinhoud verwisselen in Excel?

Van: http://www.extendoffice.com/documents/excel/860-excel-swap-contents-of-two-cells.html

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

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

2. Druk op de toets Shift, en zet de cursor op de rechterrand.

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

4. Als daar “工” staat, laat u de muis los.

5. En de twee celinhouden zijn verwisseld.

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

Voor het specifieke geval van aangrenzende rechthoekige bereiken van dezelfde grootte , kunt u de methode gebruiken die wordt beschreven in dit antwoord op een soortgelijke vraag .

1. Selecteer het rechter of onderste bereik
2. Druk op Ctrl+X
3. Selecteer het aangrenzende bereik (d.w.z. direct boven of links)
4. Druk op Ctrl+ + (de + staat meestal boven de = toets, dus dit vertaalt zich naar Ctrl+Shift+=)

Merk op dat je dezelfde procedure kunt gebruiken om hele aangrenzende rijen of kolommen te verwisselen.

Met eenvoudig bedoel ik een sneltoets of een menu-item, zonder dat er gekopieerd moet worden naar tijdelijke cellen of VBA-scripts geschreven moeten worden of iets dergelijks. Ik zoek een manier om twee cellen te selecteren en op een menu-item te klikken of een toetscombinatie in te drukken om de inhoud om te wisselen.

Waarom deze beperking opleggen? Het maken van een macro maakt dit triviaal. Voor zover ik weet, kan het niet op een andere manier. Je kunt de macro toewijzen aan een knop of sneltoets.

Sub Swap()     
    If Selection.Count <> 2 Then     
         MsgBox "Select 2 cells (only) to swap."     
         Exit Sub     
    End If     
    Set trange = Selection     
    If trange.Areas.Count = 2 Then     
         temp = trange.Areas(2)     
         trange.Areas(2) = trange.Areas(1)     
         trange.Areas(1) = temp     
    Else     
         temp = trange(1)     
         trange(1) = trange(2)     
         trange(2) = temp     
    End If     
End Sub

Nee. Er is geen manier om de inhoud van twee cellen in Excel te verwisselen, zonder uw eigen macro te schrijven om dit te doen.

EDIT: Het lijkt erop dat er nu een eenvoudige manier is om celinhoud te verwisselen in recentere versies van Excel, dus dit antwoord is nu waarschijnlijk verouderd.

Selecteer de eerste set cellen die u wilt verwisselen en druk op ctrl+x:

Selecteer de cellen BOVEN de cellen die u wilt verwisselen en druk op ctrl++.

• Selecteer de onderste cel die je wilt verwisselen
• Druk op Ctrl+X en ga naar de cel die je wilt verwisselen met
• Druk op Ctrl+Shift+=

De verwisseling wordt uitgevoerd

Ik las deze post maar had eigenlijk een macro nodig om volledige bereiken te verwisselen. Bovendien moest ik de kleuren verwisselen. Ik heb de oorspronkelijk geposte macro een beetje aangepast, dit kan nuttig zijn voor iemand.

Sub Swap()

    If Selection.Areas.Count <> 2 Then
         MsgBox "Select 2 cell ranges (only) to swap."
         Exit Sub
    End If

    If Selection.Areas(1).Count <> Selection.Areas(2).Count Then
         MsgBox "The two areas must be of equal size"
         Exit Sub
    End If

    'With this for loop we run through each cell 1 by 1
    For i = 1 To Selection.Areas(1).Count
        'Swapping values
        temp = Selection.Areas(1)(i)
        Selection.Areas(1)(i) = Selection.Areas(2)(i)
        Selection.Areas(2)(i) = temp

        'Swapping color
        tempColor = Selection.Areas(1)(i).DisplayFormat.Interior.Color
        Selection.Areas(1)(i).Interior.Color = Selection.Areas(2)(i).DisplayFormat.Interior.Color
        Selection.Areas(2)(i).Interior.Color = tempColor
    Next i

End Sub

U kunt tot 25 items aan het klembord plakken, zodat u ze gemakkelijk kunt verwisselen met ctr+tab of cmd+tab mac