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 ?
AI bliver først for alvor en del af arbejdet, når teknologien integreres i den måde, vi arbejder på. At have adgang til AI betyder ikke nødvendigvis, at medarbejderne er klar til at bruge den.
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.