Jag skulle behöva en enkel funktion/macro för att hitta och replaca apostrof(') i ett kalkylblad.
------------------
saw
__
saw@songer.com
www.saw.songer.com
__
Apostrofe i exel-cell
6 svar · 598 visningar · startad av saw
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?
------------------
saw
__
saw@songer.com
www.saw.songer.com
__
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).
------------------
saw
__
saw@songer.com
www.saw.songer.com
__
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?
------------------
saw
__
saw@songer.com
www.saw.songer.com
__
Alla problem lösta.
Tack för all hjälp :)
------------------
saw
__
saw@songer.com
www.saw.songer.com
__