23. april 2006 - 19:23Der er
4 kommentarer og 1 løsning
Dele bogstaver i et felt ud på mange
Hej. Jeg har 6 felter (A1 til A6) hvor jeg i hvert felt har 350 bogstaver, disse bogstaver vil jeg gerne have delt ud på 350 felter, i samme kolonne men forskellige rækker. Jeg prøvede at lave "tekst til kolonne" men jeg måtte definere hver enkelt deling idet der ikke er mellemrum eller andet karakteristika mellem mine bogstaver. Da jeg havde gjort det og trykkede udfør, så kunne den ikke idet jeg jo ikke kan have 350 rækker i et ark, så de skal altså transponeres først! Er der nogen der har en nem måde at gøre det på. Tak
Det kunne gøres således, hvor data placeres i kolonne A-F fra række 10 Den er ligeglad med antallet af karakter du har i cellerne.
Public Sub Demo() Const lSTART_ROW As Long = 10 Const lSTART_COL As Long = 1 Dim lChar As Long Dim rCell As Range
For Each rCell In Range("A1:A6").Cells For lChar = 1 To Len(rCell.Value) Cells(lSTART_ROW - 1 + lChar, lSTART_COL - 1 + rCell.Row).Value = Mid(rCell.Value, lChar, 1) Next lChar Next rCell 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.
