webForumDet fria alternativet

Infoga tecken....!??

7 svar · 1 413 visningar · startad av JAreMANNEN

JAreMANNENMedlem sedan aug. 20001 698 inlägg
#1

Hajj hajj!!

Hur gör man om jag tex vill infoga ett blanksteg 5 tecken fram i texten som finns i kolumnen??

Exempel:

Har en kolumn med över 2000 postnummer...

50458<- Såhär ser de ut nu
504 58<- Såhär vill jag att de skal se ut

Lite jobbigt för fingrarna att infoga ett blanksteg på över 2000 rader.. :h

Borde väl gå med nåt marko eller nåt kanske... :q

Eller har någon ett annat bra prog för detta??

MVH

------------------
Det är lättare att leva ett rikt liv som ung, när man vet att det väntar ett som gammal
E-post

clarkbonesMedlem sedan feb. 20012 693 inlägg
#2

Sub fighter()
Do Until ActiveCell.Offset(0, 0).Value = ""
str1 = ActiveCell.Value
str2 = Left(str1, 3) & Chr(32) & Right(str1, (Len(str1) - 3))
ActiveCell.Value = str2
ActiveCell.Offset(1, 0).Select
Loop
End Sub

RikardMedlem sedan dec. 19998 623 inlägg
#3

Wow! clarkbones, jag anar att du, om du orkar fortsätta så här - vilket jag hoppas - kommer att få mig att sakta men säkert lära mig använda VBScript! :D

*man bugar*

Vilken lösning!

med vänliga

Rikard
forumledare, webForum

clarkbonesMedlem sedan feb. 20012 693 inlägg
#4

Åh, vad det är härligt med smicker! Jag kommer att dyka upp här fortsättningsvis, var så säker.

clarkbones

RikardMedlem sedan dec. 19998 623 inlägg
#5

Det gläder mig! :)

------------------
...för övrigt anser jag att Skywalker ska återgå till sitt gamla användarnamn Bire.

LaspMedlem sedan juli 200010 197 inlägg
#6

Snygg lösning
men Excel klara detta lätt så här:
=VÄNSTER(A1;3)&" "&HÖGER(A1;2)
i kolumnen bredvid A tex. Dra sedan ner formeln paralellt.
Samma principkannvändas för föregående fråga om mellanslag.

------------------
GvdsSfdtTddv.

clarkbonesMedlem sedan feb. 20012 693 inlägg
#7

Bra påpekande! Man skall inte göra det mer tillkrånglat än nödvändigt.

CarlWMedlem sedan apr. 200140 inlägg
#8

Ännu enklare är kanske att välja Format-Celler-Special-Postnummer alternativt Anpassat och skriva: 000\ 00

------------------
CW

Genererad på 368 ms · cache AV · v20260730165559-full.f96bc7eb