Just nu i M3-nätverket
Gå till innehåll

Skilja siffror från text


Plide

Rekommendera Poster

Jag har en kolumn med postnummer och postort där jag vill få ut postnummer i en egen kolumn och postorten i en egen kolumn.

Postnumren står i lite olika format med olika antal mellanrum osv.

Jag har lagt till nedan kod som modul för att skilja ut texten i en egen kolumn men nu kommer inte sista bokstaven med, varför?

 

Ex Ljungsbro blir Ljungsbr osv

 

Function TextExtract(rCell As Range) As String

Dim sText As String
Dim vVal As Variant
Dim blBreak As Boolean
sText = rCell
Dim i As Integer
i = 1
TextExtract = ""
While i < Len(sText)
    vVal = Mid(sText, i, 1)
    If Not IsNumeric(vVal) Then
    TextExtract = TextExtract & vVal
    Else
    If TextExtract <> "" Then i = Len(sText) + 5
    End If
    i = i + 1
Wend
End Function

 

 

Tacksam om någon kan hjälpa mig med detta.

kolumn.PNG

Länk till kommentar
Dela på andra webbplatser

Går det att få mellanrum på de nummer som består av 5 siffror så att jag kan få postnummer på rätt format?

Går det också få #värdefel att bli tomma celler?

 

Function TextExtract(rCell As Range) As String

Dim sText As String
Dim vVal As Variant
Dim blBreak As Boolean
sText = rCell
Dim i As Integer
i = 1
TextExtract = ""
While i <= Len(sText)
    vVal = Mid(sText, i, 1)
    If Not IsNumeric(vVal) Then
    TextExtract = TextExtract & vVal
    Else
    If TextExtract <> "" Then i = Len(sText) + 5
    End If
    i = i + 1
Wend
End Function

Kolumn2.PNG

Länk till kommentar
Dela på andra webbplatser

1 timme sedan, Plide säger:

Perfekt! Tack!

Längst till vänster finns det bockar framför svarsinläggen och om du klickar på en sådan bock kommer det inlägget att markeras som lösning/bästa svar, vilket kan underlätta för någon annan som undrar samma sak som du i framtiden.

 

Cecilia

Moderator

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.



×
×
  • Skapa nytt...