05. februar 2016 - 13:47Der er
4 kommentarer og 1 løsning
Splitte tekst og tal fra en celle
Hej
Jeg skal rydde op i større mængde data.
Test Vej 1 Test Vej 1 A Testvej 1 Testvej 1 A
Vejnavn og nummer og evt. bogstav
Der er varierende antal bogstaver i vejnavn og nogle gange et eller flere mellemrum. Vejnummer kan være varierende antal cifre Der er nogle gange bogstaver.
Det jeg skal er at samle husnummer og bogstav, da mellemrummet er en fejl. I praksis er det nok at splitte op i de tre komponenter adresserne kan bestå af (vejnavn, nummer, evt. bogstav), så kan jeg samle det som jeg ønsker bagefter :-)
Marker cellerne med adresserne og kør makroen, den skriver resultatet i de to kolonner til højre for den markerede kolonne
Public Sub FindVejnummer() Dim C As Range, I As Integer, A As String, B As String For Each C In Selection For I = 1 To Len(C) If IsNumeric(Mid(C, I, 1)) Then A = Trim(Left(C, I - 1)) B = Replace(Right(C, Len(C) - (I - 1)), " ", "") C.Offset(0, 1) = A C.Offset(0, 2) = B End If Next Next End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
