Zamień zawartość komórki w Excelu?

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

Czasami zdarza się, że trzeba zamienić dwie sąsiadujące ze sobą komórki. Możemy to zrobić ręcznie w prosty sposób. Spójrz na poniższy zrzut ekranu, chcę zamienić komórkę A4 i B4, proszę zrobić to w następujący sposób:

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

2. Wciśnij klawisz Shift i ustaw kursor na prawej krawędzi.

3. Następnie przeciągnij kursor na prawą krawędź komórki B4.

4. Gdy pojawi się napis “工”, zwolnij myszkę.

5. Zawartość obu komórek została zamieniona.

Za pomocą tej metody możemy również zamienić dwa sąsiadujące ze sobą wiersze lub kolumny.

Dla szczególnego przypadku sąsiadujących ze sobą prostokątnych zakresów o tym samym rozmiarze można użyć metody opisanej w tej odpowiedzi na podobne pytanie .

1. Zaznacz prawy lub dolny zakres
2. Naciśnij Ctrl+X
3. Zaznacz sąsiedni zakres (tj. bezpośrednio powyżej lub z lewej strony)
4. Naciśnij Ctrl+ + (klawisz + znajduje się zwykle nad klawiszem =, więc przekłada się to na Ctrl+Shift+=)

Uwaga Możesz użyć tej samej procedury do zamiany całych sąsiednich wierszy lub kolumn.

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

Po co nakładać takie ograniczenie? Stworzenie makra czyni to banalnie prostym. O ile mi wiadomo, nie da się tego zrobić w inny sposób. Możesz przypisać makro do przycisku lub klawisza 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 sposobu, aby zamienić zawartość dwóch komórek w programie Excel, bez pisania własnego makra, aby to zrobić.

EDIT: Brzmi to tak, jakby teraz mógł istnieć łatwy sposób na zamianę zawartości komórek w nowszych wersjach programu Excel, więc ta odpowiedź jest prawdopodobnie nieaktualna.

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

Zaznacz komórki POZA tymi, z którymi chcesz się zamienić i naciśnij ctrl++.

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

Zamiana zostanie wykonana

Przeczytałem ten post, ale w rzeczywistości potrzebowałem makra, aby zamienić pełne zakresy. Dodatkowo, potrzebowałem zamienić kolory. Zmodyfikowałem nieco pierwotnie zamieszczone makro, może się komuś przyda.

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

Możesz wkleić do 25 elementów do schowka, więc łatwo je podmienić za pomocą ctr+tab lub cmd+tab mac.