Transpose af data med flere kolonner

Du ved formentligt hvordan man du ganske enkelt og helt uden makroer kan transposnere et område?

Markér området du vil transponere, højreklik og vælg "kopier".

Marker en anden celle et ledig sted i  arket, højreklik og vælg indsæt speciel, transponer. Nu indsættes dine data således at kolonner og rækker er byttet om.

Med en sub i vba kan du evt gøre som her:

Hvor du blot skal stå i området hvor du vil tranponere fra.
Området transponeres så til det område hvor celle B26 er øverste venstre celle.

sub transponerområde()
ActiveCell.CurrentRegion.Select
Selection.Copy
   
Range("B26").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

end sub

mvh Kurt

Hej Kurt,

The tricky part er at hvis jeg gør det på den kendte måde så får jeg "bare" byttet rundt på kolonner og rækker - og der jeg gerne vil have er et datasæt hvor jeg får en kolonne med alle måneder med en tilsvarende kolonne med alle værdier. Så fra at have 12 dimensioner (en for hver måned) har jeg nu en dimension nemlig måneder.....

Ok - overvejer lige løsningen på dette ;-)

Er det korrekt forstået, at du for eksempel fra A2 og nedefter ønsker først 12 gange A,derefter 12 gange B osv. Fra B2 og nedefter Januar, februar,......, december og derefter forfra igen osv. og fra C2 og nedefter 100, 350, 150 osv.?

Hans

Hej
Prøv med denne kode
Dine data skal stå/starte i Ark1- celle A1 og flyttes over i Ark2

Sub DanListe()
    HverR = 2
    ListeR = 1
    While Sheets("Ark1").Cells(HverR, 1).Value <> ""
   
        For x = 3 To 15 'hver mdr
       
        Sheets("Ark2").Cells(ListeR, 1).Value = Sheets("Ark1").Cells(1, 1).Value 'overskrift
        Sheets("Ark2").Cells(ListeR, 2).Value = Sheets("Ark1").Cells(HverR, 1).Value
        Sheets("Ark2").Cells(ListeR, 3).Value = Sheets("Ark1").Cells(1, 2).Value
        Sheets("Ark2").Cells(ListeR, 4).Value = Sheets("Ark1").Cells(HverR, 2).Value
        Sheets("Ark2").Cells(ListeR, 5).Value = Sheets("Ark1").Cells(1, x).Value
        Sheets("Ark2").Cells(ListeR, 6).Value = Sheets("Ark1").Cells(HverR, x).Value
        ListeR = ListeR + 1
        Next x
   
    HverR = HverR + 1
    Wend
   
End Sub

mvh oleelo

Hvis du (som jeg) skulle foretrække formelløsninger overalt hvor det er muligt at undgå VBA, så prøv med følgende:

Navngiv dit dataudtræk tbl.

Indsæt følgende formler

I A2: =INDEX(tbl;INT((ROW()-2)/12+2);1)
I B2: =INDEX(tbl;1;MOD(ROW()-2;12)+2)
I C2: =HLOOKUP(B2;tbl;INT((ROW()-2)/12+2);0)

Hvis dansk Excel:
I A2: =INDEKS(tbl;HELTAL((RÆKKE()-2)/12+2);1)
I B2: =INDEKS(tbl;1;REST(RÆKKE()-2;12)+2)
I C2: =VOPSLAG(B2;tbl;HELTAL((RÆKKE()-2)/12+2);0)

Kopier formlerne nedad så langt som påkrævet.

Hans

Oops
Ret vedrørende formlen i B2 til:
=INDEKS(tbl;1;REST(RÆKKE()-2;12)+3)

Hans