PNG32 PNG32 PNG32 PNG32
PNG32
Forum Excel, VBA, VSTO, Exceltips, Excelhj�lp PNG32 drivs av Excelspecialisten    Logga in     English
PNG32
PNG32 PNG32
PNG32

Logga in

PNG32

Du är inte inloggad. Logga in eller registrera dig för att skriva inlägg eller svara på inlägg.

För frågor om forumet, kontakta oss på webmaster@excelforum.se

PNG32 PNG32
PNG32 PNG32
PNG32

Excelforum

PNG32

 
ForumForumDiskussionerDiskussionerExcelExcelmånga små tabeler många små tabeler
Föregående Föregående
 
Nästa Nästa
Nytt inlägg
 2018-04-06 16:57
 

Hej

Jag vill veta hur man sorterar flera små tabeller från horizontal till vertical altså det är flera hundra små tabeler som liger i vågrätt men jag vill ha tabelerna i lodrätt.

Tack !!

Nytt inlägg
 2018-04-09 09:21
 
 Ändrad av anonymous  på 2018-04-09 09:24:28

 Svårt att göra enkelt. Men om du antar att dina småtabeller är regelbundna och altid är 6:kolumner breda (och aldrig är högre än 4 kolumner) så kan du testa något slags "hoppande" förskjutning där du låter raden nummer bestämma vilken rad varje tabell börjar på , med "hopp" om 

Om data ligger på Blad 1 så kan du testa någonting i den här stilen i cell A1 i ett annat blad

 

=OMFEL(FÖRSKJUTNING(Blad1!$A$1;REST(RAD();6)-1;HELTAL(RAD()/6)*6+KOLUMN()-1);"")

Kopiera ner till A4. Sen markerar du A1: A4, kopiera och klistra in åt höger,  så många kolumner det behövs

Tyvärr kommer du att få 0:or när originaldata är tom. om du vill hantera det får du krångla till formeln ytterligare (skall ligga på en rad):

=OMFEL(OM(FÖRSKJUTNING(Blad1!$A$1;REST(RAD();6)-1;HELTAL(RAD()/6)*6+KOLUMN()-1)="";"";FÖRSKJUTNING(Blad1!$A$1;REST(RAD();6)-1;HELTAL(RAD()/6)*6+KOLUMN()-1));"")

Fungerar, men inte så snyggt, om jag får säga det själv..

Nytt inlägg
 2018-04-09 09:28
 

 Ähhh, kollar dina bilder igen. Det är ju olika bredd, så mitt asntagande är kanske lit förenklat.

Är du bekväm med VBA (makron)?  Det blri alltid lite säkehetsproblem, men om det alltid är du som kör data så borde det här nästan vara enklast. 

Förutsätter att det alltid är minst en tom kolumn mellan varje tabell.

Sub Makro1()

Dim rKällCell As Range

Dim rMålCell As Range

 

Set rKällCell = Range("A1")

Set rMålCell = Range("A1")

 

Do While rKällCell.Value <> ""

    Set rMålCell = rMålCell.Offset(5, 0)

    Set rKällCell = rKällCell.End(xlToRight).End(xlToRight)

    rKällCell.CurrentRegion.Copy Destination:=rMålCell

Loop

End Sub

 

Föregående Föregående
 
Nästa Nästa
ForumForumDiskussionerDiskussionerExcelExcelmånga små tabeler många små tabeler

PNG32 PNG32
Excelforum drivs av Excelspecialisten som bedriver utbildning i Excel och VBA, tillhandahåller support och hjälp med Excel, utvecklar program i Excel. Är ni i behov av en konsult inom Excel, VBA eller VSTO, eller söker en excelkurs, kontakta oss.
Copyright 2013 ExcelSpecialisten XLS AB   Användarvillkor  Personliga uppgifter