6 svar · 616 visningar · startad av saw
Jag skulle behöva en enkel funktion/macro för att hitta och replaca apostrof(') i ett kalkylblad.
Den var ju enkel!
Redigera>Ersätt>Fyll i dialogrutan enligt önskemål!
men om du ville ha det i kod:
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
Sub Replacer()
Cells.Replace What:="'", Replacement:="Fyll i vad du vill ta bort", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False
End Sub
Tips: testa makroinspelaren...
Tack skall du ha, men poblemet är att jag skulle behöva en kodsnut som letade igenom hela kalkylbladet.
Hur skall jag får honom att gå ifrån cell till cell?
Jag glömmde att skriva:
Om det i cellen finns inskrivit '45 12 06- 3229 (det är detta som är problemet) så vill inte sökfunktionen hitta cellen.
Jag har försökt med lookup, letarad osv. Jag kan själv se den av misstag inskrivna apostrofen, och att tecknen är vänsterställda i cellen, men Excell hittar den inte med sina funktioner.
Det rör sig om ca:600 rader att gå igenom, så det vore tacksamt med en liten nätt funktion(kodsnutt).
Förmodligen enklare än du trodde. 
Markera de berörda cellerna.
Data-menyn.
"Text to columns" (vet inte vad det heter på svenska.
Följ guiden.
Klart!? 
Livet är inte alltid så, att allting löser sig självt(!)
Så här ser kalkylbladet ut:
'451001-2877
370221-1551
821002-2112
'122112-2222
633665-1224
Excel "ser" inte apostrofen 
Jag gjorde ett macro så här:
Sub Replacer()
Cells.Replace What:="'", Replacement:="", LOOKAT:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
End Sub
Borde väll räcka???
Ingenting händer, inget felmedelande, men ingen åtgärd heller...
Vad göra?
