22. december 2004 - 08:57Der er
16 kommentarer og 2 løsninger
skille tal og bogstaver fra hinanden
Jeg har en række (mange) numre. En del af dem indeholder bogstaver i enden. Bogstaverne vil jeg gerne have flyttet til en kolonne for sig - kan det gøres?, og hvordan ?
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.
Maker dine celler, kør makroen og teksten vil blive flytte ud i kolonnen til højre
Public Sub SkildTalOgTekst() For Each c In Selection A = Len(c) For i = 1 To A If Not IsNumeric(Mid(c, i, 1)) Then c.Offset(0, 1).Value = Right(c, (A - i) + 1) c.Value = Left(c, i - 1) Exit For 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.