Jak nahradit všechny znaky v tabulce jinými znaky
Víš, že? Data, která obdržíte od obchodních partnerů nebo po importu dat, obsahují nesprávné znaky. Může se stát, že se desetinná čárka objeví všude tam, kde je desetinná čárka nutná. Nebo se může stát, že se mezi jednotlivými číslicemi objeví lomítka.
K vyhledání těchto znaků a jejich nahrazení jinými znaky můžete použít příkaz VYMĚNIT. Pokud však chcete tento proces provádět častěji, vyžaduje to mnoho úsilí. Provedením úkolu pomocí makra ušetříte čas. Toto makro můžete v budoucnosti ve stejné situaci znovu rychle a snadno zavolat.
Chcete -li zahrnout makro do prázdného sešitu, otevřete nový sešit ve všech verzích aplikace Excel pomocí kombinace kláves CTRL N. Poté stisknutím kombinace kláves ALT F11 vyvolejte editor VBA. Zde vyberte příkaz VLOŽIT - MODUL. Poté zadejte následující makro:
Vyměnit dílčí znaky ()
Při chybě Pokračovat Další
Dim Cell jako rozsah
Dim Hledat jako řetězec
Dim Nahradit jako řetězec
SearchFor = "."
ReplaceBy = ","
Pro každou buňku v ActiveSheet.UsedRange
Cell.Value = Application.Substitute (Cell.Value, FindFor, ReplaceBy)
Další buňka
Při chybě GoTo 0
End Sub
Makro nahradí desetinnou čárku desetinnou čárkou ve všech buňkách použitých v aktivním listu. Chcete -li zavolat makro, aktivujte požadovaný list, stiskněte kombinaci kláves ALT F8 a vyberte makro CHARACTER EXCHANGE.
Chcete -li řídit, jaký obsah se vyhledává a nahrazuje, upravte v makru dvě proměnné SUCHENNACH a REPLACE BY.