Avatar billede puggaard Praktikant
16. november 2015 - 22:41 Der er 4 kommentarer og
1 løsning

Strukturering af data fra rækker med data til flere kolonner til rækker

Hej,


Jeg får leveret disse data, og skal gerne levere dem videre i formatet nedenfor. Hvordan gøres det smartest uden alt for meget copy / paste? (der er tusindvis af rækker)

code    s1          s2        s3          project id
x          10,00      20,00    30,00        3100
y          11,00      21,00      31,00        3500
z          12,00    22,00      33,00        2700


skal levere videre i dette format:

code    reference    amount    project id
x            s1                  10            3100
x            s2                  20            3100
x            s3                  30            3100
y            s1                  11            3500
y            s2                  21            3500
y            s3                  31            3500
z            s1                  12            2700
z            s2                  22            2700
z            s3                  32            2700
Avatar billede supertekst Ekspert
16. november 2015 - 23:26 #1
Minder om denne tråd http://www.eksperten.dk/spm/1007298
Avatar billede jens48 Ekspert
17. november 2015 - 03:02 #2
Prøv med denne makro:

Sub Indsæt()
Dim LastRow, x As Long
LastRow = Cells(65356, 1).End(xlUp).Row
For x = LastRow To 2 Step -1
Rows(x + 1 & ":" & x + 3).Insert Shift:=xlDown
Cells(x + 3, 2) = Cells(1, 4)
Cells(x + 2, 2) = Cells(1, 3)
Cells(x + 1, 2) = Cells(1, 2)
Range(Cells(x + 3, 1), Cells(x + 1, 1)) = Cells(x, 1)
Range(Cells(x + 3, 4), Cells(x + 1, 4)) = Cells(x, 5)
Cells(x + 1, 3) = Cells(x, 2)
Cells(x + 2, 3) = Cells(x, 3)
Cells(x + 3, 3) = Cells(x, 4)
Rows(x).EntireRow.Delete
Next
Cells(1, 2) = "Reference"
Cells(1, 3) = "Amount"
Cells(1, 4) = "Project ID"
Cells(1, 5) = ""
End Sub
Avatar billede puggaard Praktikant
17. november 2015 - 20:35 #3
@ Jens48 - det virker - Tusind tak! Dog kan jeg kun få det til at spille for et område, og ikke en tabel, men det betyder ikke så meget. Når jeg først har de korrekt formaterede data, så kan jeg blot lave det til en tabel.

@ supertekst - jeg er sikker på din løsning også spiller, men kræver mere omskrivning end mine evner pt rækker, men jeg kommer til at lure på den igen da det ser meget brugbart ud.
Avatar billede puggaard Praktikant
17. november 2015 - 20:36 #4
@ Jens48 - skriver du lige så jeg kan tildele points?
Avatar billede jens48 Ekspert
17. november 2015 - 21:30 #5
Du får et svar
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