Potreba vymeniť bunky na miestach navzájom pri práci v tabuľke programu Microsoft Excel je pomerne zriedkavá. Napriek tomu existujú takéto situácie a je potrebné ich vyriešiť. Dozvieme sa, akým spôsobom je možné výmenu buniek na miestach v programe Excel.
obsah
Bohužiaľ, v štandardnom paneli s nástrojmi neexistuje žiadna taká funkcia, ktorá by bez ďalších krokov alebo bez posunu rozsahu mohla zmeniť dve bunky na miestach. Ale zároveň, aj keď tento postup pohybu nie je taký jednoduchý, ako by človek chcel, môže byť ešte usporiadaný niekoľkými spôsobmi.
Prvé riešenie problému zahŕňa banálne kopírovanie údajov do samostatnej oblasti s následnou výmenou. Pozrime sa, ako sa to deje.
Teraz boli údaje o tranzite odstránené a úloha pohybu buniek bola dokončená.
Samozrejme, táto metóda nie je úplne pohodlná a vyžaduje mnoho ďalších krokov. Napriek tomu je to ten, kto uplatňuje väčšinu používateľov.
Iný spôsob, pomocou ktorého je možné bunky vymieňať na miestach, môže byť nazývaný jednoduchý drag and drop. Pravda, pri použití tejto možnosti sa bunky posunú.
Vyberte bunku, ktorú chcete presunúť na iné miesto. Nastavte kurzor na jeho okraj. V tomto prípade musí byť transformovaná do šípky, na konci ktorej sú ukazovatele nasmerované v štyroch smeroch. Držíme kláves Shift na klávesnici a presuňte ho na miesto, ktoré chceme.
Zvyčajne by to mala byť priľahlá bunka, pretože keď sa pohybuje týmto spôsobom, celý rozsah sa posúva.
Preto sa pohybovanie viacerými bunkami často stáva nesprávne v kontexte konkrétnej tabuľky a používa sa zriedkavo. Ale samotná potreba zmeniť obsah regiónov ďaleko od seba nezmizne, ale vyžaduje iné riešenia.
Ako už bolo uvedené, v programe Excel neexistuje žiadna rýchla a správna cesta bez kopírovania do tranzitného rozsahu, aby sa medzi sebou zmenili dve bunky, ak nie sú v priľahlých oblastiach. To sa však dá dosiahnuť použitím makier alebo doplnkov tretích strán. Budeme hovoriť o tom, že použijeme jedno takéto špeciálne makro nižšie.
Sub ПеремещениеЯчеек()
Dim ra As Range: Set ra = Selection
msg1 = "Произведите выделение ДВУХ диапазонов идентичного размера"
msg2 = "Произведите выделение двух диапазонов ИДЕНТИЧНОГО размера"
If ra.Areas.Count 2 Then MsgBox msg1, vbCritical, "Проблема": Exit Sub
If ra.Areas(1).Count ra.Areas(2).Count Then MsgBox msg2, vbCritical, "Проблема": Exit Sub
Application.ScreenUpdating = False
arr2 = ra.Areas(2).Value
ra.Areas(2).Value = ra.Areas(1).Value
ra.Areas(1).Value = arr2
End Sub
Po vložení kódu zatvorte okno editora kliknutím na štandardné tlačidlo zatvorenia v pravom hornom rohu. Takto bude kód zapísaný do pamäte knihy a jej algoritmus sa dá reprodukovať, aby vykonal potrebné operácie.
Je dôležité poznamenať, že keď zatvoríte súbor, makro sa automaticky odstráni, takže ho budete musieť znova napísať. Aby ste to neuskutočnili zakaždým pre určitú knihu, ak plánujete natrvalo vykonať takéto pohyby vo vašej knihe, mali by ste súbor uložiť ako zošit programu Excel s podporou makier (xlsm).
Lekcia: Ako vytvoriť makro v programe Excel
Ako vidíte, v programe Excel existuje niekoľko spôsobov, ako navzájom pohybovať bunky. To sa dá dosiahnuť pomocou štandardných nástrojov programu, ale tieto možnosti sú celkom nepríjemné a trvajú dlho. Našťastie existujú makrá a doplnky vývojárov tretích strán, ktoré umožňujú čo najrýchlejšie a najslabšie riešenie úlohy. Takže pre používateľov, ktorí musia tieto pohyby neustále aplikovať, bude to druhá možnosť, ktorá bude optimálna.