Avatar billede hcm Nybegynder
21. august 2014 - 02:51 Der er 4 kommentarer og
1 løsning

Split en streng og lav en liste

Hej,
Jeg har et regneark i formatet

Kode    Afdeling
DFA    40/55/56/
DFB    53
K3A    46/47/51/55/56/96/50

Jeg vil ha' det konverteret til

Kode  Afdeling
DFA  40
DFA  55
DFA  56
DFB  53
K3A  46
K3A  47
osv.

Der er variable antal afdelinger per kode.

Er der nogen der kan hjaelpe med vba kode til det?
Jeg har engelsk sproget excel...
Avatar billede bak Forsker
21. august 2014 - 16:59 #1
Prøv denne kode
Marker alle celler med Kode ag afdeling og kør så makroen.
Resultatet blive placeret i kolonne F og G

Sub test()
    Dim x As Long, y As Long
    Dim c As Range, rg As Range
    Dim t As Variant
    ReDim TheArray(1, 1000)
   
    Set rg = Selection
    For Each c In Range(rg.Columns(1).Address)

        t = Split(c.Offset(0, 1), "/")
       
        For x = 0 To UBound(t)
            TheArray(0, y) = c
            If Len(t(x)) >= 1 Then
            TheArray(1, y) = t(x)
            y = y + 1
            ' step up array size by 1000
            If y Mod 1000 = 0 Then ReDim Preserve TheArray(1, UBound(TheArray, 1) + 1000)
            End If
        Next
       
    Next
   
    Range("F1").Resize(y, 2) = Application.Transpose(TheArray)
   
End Sub
Avatar billede hcm Nybegynder
22. august 2014 - 01:03 #2
Perfect! Det virker helt efter hensigten! Mange tak
Avatar billede bak Forsker
22. august 2014 - 08:21 #3
Godt at det virker :-)
Så får du lige et svar.
Avatar billede hcm Nybegynder
25. august 2014 - 01:08 #4
saa fik jeg dig lige skubbet over 100.000 point! :-)
Takker for hjaelpen
Avatar billede bak Forsker
25. august 2014 - 20:45 #5
takker :-)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester



Seneste spørgsmål Seneste aktivitet
I dag 06:10 Excel åbner fil i kæmpe format Af Aske i Excel
I går 22:00 Datafordeler Af Lsk i PHP
I går 12:37 Summere beløb pr. dato Af TTA i Excel
31/1022:44 Tilslutte chassic fans Af viking69 i PC
31/1020:28 LED lysstofrør Af ErikHg i Fri debat