19. februar 2007 - 14:28Der er
11 kommentarer og 1 løsning
Lister: Split tal og tekst indsat i samme celle
Jeg får udtræk fra et økonomisystem, som indsætter kontonr. og kontotekst i samme celle. Det er ikke muligt for mig med excel's importguide at skille tal og tekst ad som det er med fx kommaseparerede filer.
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
rk = ActiveSheet.Cells(65000, 1).End(xlUp).Row For t = 1 To rk dele = Cells(t, 1) tal = Mid(dele, 1, 6) tekst = Trim(Mid(dele, Len(tal) + 1, Len(dele))) Cells(t, 1) = tal Cells(t, 2) = tekst Next
Jeg har prøvet begge dele nu - og begge dele virker delvist.
Problemet ved mellemrumsadskilleren er, at den også putter hvert ord i en ny celle. Hvis jeg har flere ord og tekst i samme celle, skubber den altså alle kolonnerne til højre for at skabe plads til alle ordene.
Problemet ved makroen er, at der foran nogle af tallene er mellemrum og det ikke er det samme antal mellemrum. I nogle af talle indgår også et punktum. Eksempel:
Hvis udtræk er i kolonne A og kolonne B er tom tal skrives i kolonne A og tekst i kolonne B
Sub test()
For t = 1 To Cells(65000, 1).End(xlUp).Row v = Cells(t, 1) If v <> "" Then tal = Val(v) tekst = Trim(Mid(v, Len(tal) + 1, Len(v))) Cells(t, 1) = tal Cells(t, 2) = tekst End If Next
Excelent, det virker nu - om ikke perfekt, så ihvertfald, så jeg kan bruge det. Martin, jeg kan desværre ikke udlevere mit materiale, da det er fortroligt. Men tak for tilbuddet :-) Pointene må retfærdigvis gå til excelent, men jeg skal have et svar, før jeg kan tildele dem. Tak for hjælpen, begge.
Som den ser ud nu, har den blot kopieret tallene ud og sat dem ind i kolonne A. Så nu har jeg kontonr. i kolonne A, og kontonr. og kontotekst i kolonne B. Det vigtigste var dog, at jeg fik kontonr. ud i særskilte celler for at kunne lave v-lookup, og det har jeg nu.
Synes godt om
Ny brugerNybegynder
Din løsning...
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.