Zamieniać zawartość komórki w programie Excel?

Czy istnieje prosty sposób na zamianę zawartości dwóch komórek w programie Microsoft Excel?

Przez łatwość rozumiem skrót klawiaturowy lub element menu, bez konieczności kopiowania do tymczasowych komórek lub pisania skryptów VBA itp. Innymi słowy, szukam sposobu, aby po prostu wybrać dwie komórki i kliknąć jakiś element menu lub nacisnąć kombinację klawiszy, która zamieni ich zawartość. Z pewnością musi być na to sposób?

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

Czasami trzeba zamienić dwie sąsiednie komórki. Możemy to łatwo zrobić ręcznie. Spójrz na poniższy zrzut ekranu, chcę zamienić komórkę A4 i B4, wykonaj następujące czynności:

1. Wybierz komórkę, którą chcesz zamienić. W tym przykładzie wybierz komórkę A4.

2. Naciśnij klawisz Shift i umieść kursor na prawej ramce.

3. Następnie przeciągnij kursor do prawej krawędzi komórki B4.

4. Kiedy pojawi się „工”, zwolnij mysz.

5. I zawartość dwóch komórek została zamieniona.

Za pomocą tej metody możemy również zamienić dwa sąsiednie wiersze lub kolumny.

W konkretnym przypadku sąsiadujących zakresów prostokątnych o tej samej wielkości można użyć metody opisanej w tej odpowiedzi na podobne pytanie .

1. Wybierz prawy lub dolny zakres
2. Naciśnij Ctrl+X
3. Wybierz sąsiedni zakres (tj. Bezpośrednio powyżej lub w lewo)
4. Naciśnij Ctrl+ +( +zwykle znajduje się nad =klawiszem, co przekłada się na Ctrl+ Shift+ =)

Uwaga: możesz użyć tej samej procedury, aby zamienić całe sąsiednie rzędy lub kolumny.

Przez łatwość rozumiem skrót klawiaturowy lub element menu, bez konieczności kopiowania do tymczasowych komórek lub pisania skryptów VBA itp. Szukam sposobu, aby po prostu wybrać dwie komórki i kliknąć jakiś element menu lub nacisnąć kombinację klawiszy, która zamieni ich zawartość.

Po co nakładać to ograniczenie? Utworzenie makra czyni to banalnym. O ile mi wiadomo, nie można tego zrobić w żaden inny sposób. Możesz przypisać makro do przycisku lub skrótu.

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     

Nie. Nie ma możliwości zamiany zawartości dwóch komórek w programie Excel bez napisania własnego makra.

EDYCJA: Wygląda na to, że może być teraz łatwy sposób zamiany zawartości komórki w nowszych wersjach programu Excel, więc ta odpowiedź jest prawdopodobnie nieaktualna.

Wybierz pierwszy zestaw komórek do zamiany i naciśnij ctrl+ x:

Wybierz komórki POZA tymi, które chcesz zamienić i naciśnij ctrl+ +.

Możesz wkleić do schowka do 25 elementów, dzięki czemu można je łatwo zamieniać za pomocą klawiszy Ctr + Tab lub cmd + Tab Mac

• Wybierz dolną komórkę, którą chcesz zamienić
• Naciśnij Ctrl+ Xi przejdź do komórki, którą chcesz zamienić
• Naciśnij Ctrl+ Shift+=

Zamiana zostanie wykonana

Przeczytałem ten post, ale tak naprawdę potrzebowałem makra do zamiany pełnych zakresów. Ponadto musiałem zamienić kolory. Lekko zmodyfikowałem pierwotnie opublikowane makro, może to być przydatne dla kogoś.

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