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 :-)
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
