Přejít k hlavnímu obsahu

Jak rychle vyměnit obsah dvou buněk v aplikaci Excel?

Když zpracováváme list, možná budeme muset někdy zaměnit obsah dvou buněk. Za normálních okolností většina z nás prostě ví „ořezávat, vkládat a kopírovat“ pro výměnu obsahu, ale je to časově náročné. Budeme mluvit o tom, jak rychle vyměnit obsah v buňkách v aplikaci Excel.

Ručně vyměňte dva sousední obsah buněk
Zaměňte dva nesousedící obsah buněk s kódem VBA
Jednoduše vyměňte dva náhodné obsahy buněk pouhými několika kliknutími


Ručně vyměňte dva sousední obsah buněk

Někdy je třeba vyměnit dvě sousední buňky. Můžeme to snadno udělat ručně. Podívejte se na následující snímek obrazovky, chci vyměnit buňku A4 a B4, postupujte takto:

doc-swap-buňky1

1. Vyberte buňku, kterou chcete zaměnit. V tomto příkladu vyberte buňku A4.

2. lis směna a umístěte kurzor na pravý okraj.

3. Poté přetáhněte kurzor na pravý okraj buňky B4.

4. Když se zobrazí „”, Uvolněte myš.

5. A obsah dvou buněk byl zaměněn. Viz screenshot:

doc-swap-buňky2

S touto metodou můžeme také vyměnit dva sousední řádky nebo sloupce.

Rychle vyměňte obsah dvou buněk nebo rozsahů v aplikaci Excel:

Kutools pro Excel's Zaměnit rozsahy nástroj vám pomůže snadno vyměnit dvě určené buňky nebo rozsahy najednou v aplikaci Excel, jak je ukázáno níže.
Stáhněte si a vyzkoušejte to hned! (30denní bezplatná trasa)

vyměnit buňky


Zaměňte dva nesousedící obsah buněk s kódem VBA

Pokud tyto dvě buňky nesousedí, výše uvedená metoda nebude fungovat. Můžeme je vyměnit za kód VBA.

1. zmáčkni Ctrl klíč a vyberte dvě nesousedící buňky, které chcete zaměnit.

2, klikněte Vývojka>Visual Basic, nový Microsoft Visual Basic pro aplikace Zobrazí se okno, klikněte na Vložit>Modula vložte následující kód do Modul:

Sub SwapTwoRange()
'Updateby20131120
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant, arr2 As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1:", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Application.ScreenUpdating = False
arr1 = Rng1.Value
arr2 = Rng2.Value
Rng1.Value = arr2
Rng2.Value = arr1
Application.ScreenUpdating = True
End Sub

3. Pak klikněte na tlačítko doc-multiplikovat-výpočet-3 Chcete-li spustit kód, zobrazí se dialogové okno pro výběr dvou buněk, mezi kterými chcete zaměnit. Zobrazit snímky obrazovky:

rozsahy pro výměnu dokumentů1

4. cvaknutí Ok v rozbalovacím dialogovém okně jsou zaměněny dvě vybrané buňky. Zobrazit snímky obrazovky:

rozsahy pro výměnu dokumentů1

Poznámky: Tento kód VBA nemůže vyměnit formátování těchto dvou buněk.


Jednoduše vyměňte dva náhodné obsahy buněk pouhými několika kliknutími

S Kutools pro Excel's Zaměnit rozsahy nástroj, nejen že můžeme vyměnit dvě sousední buňky, řádky nebo sloupce, ale také snadno přepnout dva nesousedící buňky, řádky nebo sloupce.

Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.

1. cvaknutí Kutools > Rozsah > Zaměnit rozsahy, viz screenshot:

2. V Zaměnit rozsahy dialogové okno, musíte:

  • (1) klikněte na první doc-replace-range-names-7 tlačítko v Rozsah výměny 1 pole vyberte buňky, které chcete zaměnit.
  • (2) klikněte na druhý doc-replace-range-names-7 tlačítko od Rozsah výměny 2 políčko pro výběr buněk, se kterými budete zaměňovat.
    Tipy: Před použitím funkce můžete vybrat dva rozsahy, poté můžete vidět, že se vybrané dva rozsahy zobrazují samostatně v polích Rozsah prohození 1 a Rozsah prohození 2.
  • (3) Klikněte na OK .

Poté jsou okamžitě zaměněny dvě vybrané buňky nebo rozsahy. Zobrazit snímky obrazovky:

rozsahy pro výměnu dokumentů1

  Pokud chcete mít bezplatnou (30denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.


Ukázka: Zaměňte dva náhodné obsahy buněk pomocí Kutools pro Excel


Související článek:

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
Comments (12)
Rated 2.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
The vba is pants because it loses formulas and formatting. It's incredible that Excel has been through like about 25 different versions and STILL doesn't have the facility in it natively to swap two ranges/non-adjacent cells around. Sort it out Microsoft!
Rated 2.5 out of 5
This comment was minimized by the moderator on the site
Legyenszíves Megírni melyik az a müszak gomb.
Köszönöm Üdv Ádám
This comment was minimized by the moderator on the site
this isn't working for me. I don't know why
This comment was minimized by the moderator on the site
Koje njesra... na kraju cu ipak raditi copy paste... Umesto da su ubacili swap opciju na padajucem menju....
This comment was minimized by the moderator on the site
Cool trick that saved me a lot of time. Thank you!
This comment was minimized by the moderator on the site
First option work well for me thanks for your efforts... :-)
This comment was minimized by the moderator on the site
Thanks !! works perfectly for me..
This comment was minimized by the moderator on the site
Thanks !! works perfectly for me..
This comment was minimized by the moderator on the site
Thank you for the information!!!
This comment was minimized by the moderator on the site
You could just cut (non-adjacent) Cell A into an unoccupied cell, paste required cell B into that space then put A into the cell B formerly occupied couldn't you?
This comment was minimized by the moderator on the site
It's not as simple as you suggested when cells have formula in them. And this also helps in inserting multiple cells at any desired location as well.
This comment was minimized by the moderator on the site
Yes you could, but why go such a roundabout way when you can do it much faster this way. Thanks ExtendOffice for your good work.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations