CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

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

Synes godt om

supertekst Ekspert

16. november 2015 - 23:26 #1

Minder om denne tråd http://www.eksperten.dk/spm/1007298

Synes godt om

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

Synes godt om

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.

Synes godt om

puggaard Praktikant

17. november 2015 - 20:36 #4

@ Jens48 - skriver du lige så jeg kan tildele points?

Synes godt om

jens48 Ekspert

17. november 2015 - 21:30 #5

Du får et svar

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Betinget formatering Af Ninna i Excel	1	23/07/202413:03	23/07/202419:56
Opdater et ark Af lurup i Excel	2	22/07/202422:23	23/07/202416:41
Dato skema Af Ninna i Excel	7	22/07/202414:58	23/07/202419:55
Betinget formatering Af boro23 i Excel	4	22/07/202410:58	I går 08:01
Problem med beregning af alder udfra cpr-nummer; formel giver talfejl pga. nul i CPR Af HR Excel-bruger i Excel	6	16/07/202416:31	17/07/202408:36

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS