Jak szybko zamienić zawartość dwóch komórek w Excelu?

Jak szybko zamienić zawartość dwóch komórek w Excelu?

Gdy obsługujemy arkusz, możemy potrzebować czasem zamienić zawartość dwóch komórek. Zazwyczaj większość z nas po prostu wie „wytnij, wklej i skopiuj”, aby zamienić zawartość, ale jest to czasochłonne. Porozmawiamy o tym, jak szybko zamienić zawartość komórek w programie Excel.

Ręcznie zamień dwie sąsiadujące zawartości komórek
Zamień dwie niesąsiadujące zawartości komórek za pomocą kodu VBA
Łatwo zamień dwie losowe zawartości komórek za pomocą zaledwie kilku kliknięć

Ręcznie zamień dwie sąsiadujące zawartości komórek

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

1. Wybierz komórkę, którą chcesz zamienić. W tym przykładzie jest to komórka 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 na ekranie pojawi się napis „工”, puść mysz.

5. I zawartość dwóch komórek została zamieniona. Zobacz zrzut ekranu:

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

Zamień dwie niesąsiadujące ze sobą komórki za pomocą kodu VBA

Gdy dwie komórki nie sąsiadują ze sobą, powyższa metoda nie zadziała. Możemy je zamienić za pomocą kodu VBA.

1. Naciśnij klawisz Ctrl i zaznacz dwie niesąsiadujące ze sobą komórki, które chcesz zamienić.

2. Kliknij przycisk Deweloper>Visual Basic, zostanie wyświetlone nowe okno Microsoft Visual Basic for applications, kliknij przycisk Wstaw>Moduł i wprowadź następujący kod do modułu:

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. Następnie kliknij przycisk, aby uruchomić kod, a następnie wyświetlane jest okno dialogowe, w którym możesz wybrać dwie komórki, między którymi chcesz się zamienić. Zobacz zrzuty ekranu:

4. Kliknij przycisk Ok w wyskakującym oknie dialogowym, dwie wybrane komórki zostaną zamienione. Zobacz zrzuty ekranu:

Uwagi: Ten kod VBA nie może zamienić formatowania dwóch komórek.

Łatwo zamień dwie losowe zawartości komórek za pomocą zaledwie kilku kliknięć

Z narzędziem Swap Ranges programu Kutools for Excel możemy nie tylko zamienić dwie sąsiadujące komórki, wiersze lub kolumny, ale także łatwo zamienić dwie niesąsiadujące komórki, wiersze lub kolumny.

Przed zastosowaniem Kutools dla Excela, proszę pobrać i zainstalować go najpierw.

1. Kliknij Kutools > Zakres > Zamień zakresy, zobacz zrzut ekranu:

2. W oknie dialogowym Zamień zakresy należy:

• (1) kliknąć pierwszy przycisk w polu Zamień zakres 1, aby wybrać komórki, które chcesz zamienić.
• (2) kliknij drugi przycisk z pola Swap Range 2, aby wybrać komórki, z którymi chcesz się zamienić.
  Wskazówki: Możesz wybrać dwa zakresy przed zastosowaniem funkcji, wtedy zobaczysz, że wybrane dwa zakresy są wyświetlane w polach Swap Range 1 i Swap Range 2 oddzielnie.
• (3) Kliknij przycisk OK.

Wtedy dwie wybrane komórki lub zakresy są natychmiast zamieniane. Zobacz zrzuty ekranu:

Jeśli chcesz mieć darmową wersję próbną (30-dniową) tego narzędzia, kliknij, aby je pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.

Demo: Zamień dwie losowe zawartości komórek za pomocą Kutools dla programu Excel

Powiązany artykuł:

• Jak zamienić wiersze lub kolumny w Excelu?