Excel, dele opp kolonne ved første bokstav [løst]

[deaktivert443556]

Edit: Jeg fant en noenlunde ok måte å gjøre det på.

 

 

Jeg har en kolonne med postnummer og poststed, som jeg ønsker å dele inn i to kolonner. Problemet er at det er en blanding av norske, svenske, italienske og enkelte andre adresser. Lengden på postnumrene varierer, og noen har mellomrom i seg. Dette kompliserer jo saken litt, men felles for de fleste, er at de er bygd opp med tall først, så bokstaver.

 

Det jeg da ønsker å gjøre, er å lage et script som går gjennom hver celle i kolonnen og flytter fra første bokstav og utover til neste kolonne. Lar dette seg gjøre?

 

Endret 5. januar 2007 av Bradbury

[Gjakmarrja]

Kanskje du kan dele løsningen med oss ?

[deaktivert443556]

Kanskje du kan dele løsningen med oss ?

7647142[/snapback]

La meg bare gjenta: "noenlunde ok måte" Med andre ord, ikke noe superløsning.

 

Jeg lagde to nye kolonner hvor jeg dro ut henholdsvis de fire første og alt utenom de fire første tegnene. Dette gjorde at alle de norske adressene ble riktige, og disse er i suverent flertall. De resterende utenlandske adressene fant jeg ut at de strengt tatt ikke må deles opp. Derfor lot jeg disse stå igjen på en måte som gjorde at de havnet i et fritekstfelt i logistikksystemet de ble overført til.

[Harald Staff]

Ok, for arkivet om ikke annet:

 

Sub SplitNumre()

Dim R As Range, Cel As Range

On Error Resume Next

Set R = Application.InputBox("Celler som skal deles:", _

"Celledeling", _

ActiveWindow.RangeSelection.Address(True, _

True, Application.ReferenceStyle), Type:=8)

If R Is Nothing Then Exit Sub

Set R = Intersect(R, ActiveSheet.UsedRange)

If R Is Nothing Then Exit Sub

For Each Cel In R

If Val(Cel.Value) > 0 Then

Call SplitCel(Cel)

End If

Next

End Sub

 

Sub SplitCel(Cel As Range)

Dim i As Long

For i = 1 To Len(Cel.Value)

If Asc(Mid$(Cel.Value, i)) >= 65 Then Exit For

Next

If i = Len(Cel.Value) Then Exit Sub

Cel.Offset(0, 1).Value = Trim$(Mid$(Cel.Value, i))

Cel.Value = Trim$(Left$(Cel.Value, i - 1))

End Sub

 

HTH. Beste hilsen Harald