Kako zamijeniti sve znakove u tablici drugim znakovima
Znaš li to? Podaci koje primate od poslovnih partnera ili nakon uvoza podataka sadrže netočne znakove. Može se dogoditi da se decimalna točka pojavi gdje god je potrebna decimalna točka. Ili se može dogoditi da se između pojedinih znamenki pojave kose crte.
Pomoću naredbe REPLACE možete pronaći te znakove i zamijeniti ih drugim znakovima. No, potrebno je puno truda ako želite ovaj proces raditi češće. Uštedite vrijeme izvršavanjem zadatka pomoću makronaredbe. Ovu makronaredbu možete ponovno brzo i jednostavno pozvati u istoj situaciji u budućnosti.
Za uključivanje makronaredbe u praznu radnu knjigu otvorite novu radnu knjigu u svim verzijama programa Excel pomoću kombinacije tipki CTRL N. Zatim pritisnite kombinaciju tipki ALT F11 da biste otvorili VBA editor. Tamo odaberite naredbu INSERT - MODULE. Zatim unesite sljedeću makro:
Zamijeni podznakove ()
Uključeno Slijedi nastavak greške
Dim Cell As Range
Dim Search za As String
Dim Zameni sa As String
TražiFor = "."
ReplaceBy = ","
Za svaku ćeliju u ActiveSheet.UsedRange
Cell.Value = Application.Substitute (Cell.Value, FindFor, ReplaceBy)
Sljedeća ćelija
Uključeno Greška Idi na 0
Kraj podm
Makro zamjenjuje decimalnu točku decimalnom točkom u svim ćelijama koje se koriste u aktivnom radnom listu. Za pozivanje makronaredbe aktivirajte željeni radni list, pritisnite kombinaciju tipki ALT F8 i odaberite makro ZAMJENA LIKOVA.
Da biste kontrolirali koji se sadržaj traži i zamjenjuje, prilagodite dvije varijable SUCHENNACH i REPLACE BY u makronaredbi.
