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
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
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.
