Flette 2 array sammen

Er der altid det samme antal elementer i de to?

Lav en split på hver og brug så en for løkke til at splejse dem sammen igen.

yes der er altid samme antal i.
Lidt mere hjælp tak kan ikke lige se det og smid det som svar tak.

Vel noget i stil med:

arr1 = "1,2,3,4,5,6,7,8,9,10"
arr2 = "a,b,c,d,e,f,g,h,i,j"

arr1=Split(arr1,",")
arr2=Split(arr2,",")

For i=0 To UBound(arr1)
  If i>0 Then NewArr=NewArr&","
  NewArr=NewArr&arr1(i)&","&arr2(i)
Next

Eller:

arr1=Split("1,2,3,4,5,6,7,8,9,10",",")
arr2=Split("a,b,c,d,e,f,g,h,i,j",",")

For i=0 To UBound(arr1)
  If i>0 Then NewArr=NewArr&","
  NewArr=NewArr&arr1(i)&","&arr2(i)
Next

Dim arr1Arr, arr2Arr

arr1 = "1,2,3,4,5,6,7,8,9,10"
arr2 = "a,b,c,d,e,f,g,h,i,j"

arr1Arr = Split(arr1, ",")
arr2Arr = Split(arr2, ",")

NewArr = ""
For idx = LBound(arr1Arr) To UBound(arr1Arr)
    If NewArr <> "" Then
        NewArr = NewArr & ","
    End If


    NewArr = NewArr & arr1Arr(idx) & "," & arr2Arr(idx)
Next

Ups, nu må du jo vælge hvem du vil have svar af ;^)

Jeg lavede bare dit forslag Nielle, og vores løsning er jo den samme, så du opretter bare svar. =)

Deler nu gerne .. så hvis du også lægger et svar :^)

:)

Så mangler du bare at acceptere vores svar :^)

Oh yes jeg har bare ikke haft tid det er jo påske :)

Det burde nu ikke tage mange sekunder at acceptere sådan et svar :^)

Næ men man skal aligevel finde tiden til at gøre det nille :)
Men tak for hjælpen.