Hur man ersätter alla tecken i en tabell med andra tecken
Vet du att? Data som du får från affärspartners eller efter dataimporten innehåller felaktiga tecken. Det kan hända att en decimal visas överallt där en decimal är nödvändig. Eller så kan det hända att snedstreck visas mellan enskilda siffror.
Du kan använda kommandot REPLACE för att hitta dessa tecken och ersätta dem med andra tecken. Men det krävs mycket ansträngning om du vill göra denna process oftare. Du sparar tid genom att utföra uppgif.webpten med ett makro. Du kan ringa detta makro igen snabbt och enkelt i samma situation i framtiden.
Om du vill inkludera makrot i en tom arbetsbok öppnar du en ny arbetsbok i alla versioner av Excel med tangentkombinationen CTRL N. Tryck sedan på tangentkombinationen ALT F11 för att öppna VBA -redigeraren. Välj kommandot INSERT - MODULE. Ange sedan följande makro:
Byt ut tecken ()
Vid fel Återuppta nästa
Dim Cell As Range
Dim Sök efter som sträng
Dim Ersätt med som sträng
SearchFor = "."
ReplaceBy = ","
För varje cell i ActiveSheet.UsedRange
Cell.Value = Application.Substitute (Cell.Value, FindFor, ReplaceBy)
Nästa cell
Vid fel GoTo 0
Avsluta Sub
Makrot ersätter decimalpunkten med en decimal i alla celler som används i det aktiva kalkylbladet. För att ringa makrot, aktivera önskat kalkylblad, tryck på tangentkombinationen ALT F8 och välj makrot Teckenutbyte.
För att styra vilket innehåll som söks efter och ersättas justerar du de två variablerna SUCHENNACH och REPLACE BY i makrot.
