Ako nahradiť všetky znaky v tabuľke inými znakmi
Vieš to? Údaje, ktoré dostanete od obchodných partnerov alebo po importe údajov, obsahujú nesprávne znaky. Môže sa stať, že desatinná čiarka sa objaví všade tam, kde je to desatinná čiarka potrebná. Alebo sa môže stať, že medzi jednotlivými číslicami sa zobrazia lomky.
Na nájdenie týchto znakov môžete použiť príkaz REPLACE a nahradiť ich inými znakmi. Ak však chcete tento proces vykonávať častejšie, vyžaduje si to veľa úsilia. Vykonaním úlohy pomocou makra ušetríte čas. V budúcnosti môžete toto makro znova rýchlo a jednoducho nazvať v rovnakej situácii.
Ak chcete zahrnúť makro do prázdneho zošita, otvorte nový zošit vo všetkých verziách programu Excel pomocou kombinácie klávesov CTRL N. Potom stlačením kombinácie klávesov ALT F11 vyvolajte editor VBA. Tam zvoľte príkaz VLOŽIŤ - MODUL. Potom zadajte nasledujúce makro:
Vymeniť vedľajšie znaky ()
Pri chybe Pokračovať ďalej
Dim Cell as Range
Dim Hľadať ako reťazec
Dim Nahradiť ako ako reťazec
SearchFor = "."
ReplaceBy = ","
Pre každú bunku v ActiveSheet.UsedRange
Cell.Value = Application.Substitute (Cell.Value, FindFor, ReplaceBy)
Ďalšia bunka
Pri chybe GoTo 0
Koniec pod
Makro nahradí desatinnú čiarku desatinnou čiarkou vo všetkých bunkách použitých v aktívnom hárku. Ak chcete vyvolať makro, aktivujte požadovaný pracovný hárok, stlačte kombináciu klávesov ALT F8 a vyberte makro VÝMENA ZNAKOV.
Ak chcete ovládať, ktorý obsah sa hľadá a nahrádza, upravte v makre dve premenné SUCHENNACH a REPLACE BY.
