16. juni 2004 - 11:07Der er
14 kommentarer og 1 løsning
Kolonner og rækker i Excel
Jeg har et problem i Excel som jeg håber nogle kan hjælpe mig med. Jeg skal have flyttet data fra en vilkårlig kolonne ud så de ligger på række. Hvis man forestiller sig at mine data ligger i kolonne A, så skal jeg flytte mine data fra A1,A2,A3,A4,A5,A6 osv til række 10 så de samme data også ligger i B10,C10,D10,E10,F10 osv. Denne process skal selvfølgelig fungere automatisk så jeg kan nøjes med at angive min start-kolonne i min ønskede start-række og så kopier denne process til de rækker hvor min kolonne skal flyttes til.
Jeg håber, der sidder nogle derude der kan hjælpe mig.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Jeg er ikke helt sikker på at jeg forstår problemstillingen. Ønsker du en formel, du kan indsætte i de celler, der skal kopieres til, eller ønsker du en makro, som automatisk kopierer data fra rækker til kolonner? Skal de oprindelige data blive tilbage eller skal de forsvinde?
Hvis det er noget, der kun skal gøres en enkelt gang er det nok nemmest at gøre det manuelt, ved hælp af Transponer. Marker de celler, du vil kopiere. Vælg kopier. Placer markøren i den celle, hvor den nye række skal starte. Vælg Rediger - Indsæt speciel. Sæt flueben i Transponer og klik OK.
Om det bliver via en macro eller en formel er ligegyldigt (jeg foretrækker dog formel) men at gøre det manuelt er IKKE en option. De eksisterende data fra kolonnen skal bibeholdes (Dataerne er fremkommet via en komma sepereret fil og derfor er de listet i kolonne) de skal nu listes i række for at kunne bruge dem i det vidre forløb.
For I = 1 To 500 Step 10 ' ret 500 til din sidste række med data Range(Cells(I, 1), Cells(I + 9, 1)).Select Selection.Copy Cells(I + 9, 2).Select Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _ , Transpose:=True Next End Sub
Hmm.... mange har en ide om, at det kan lave sig gøre. Men jeg mangler nogle konkrete eksempler på en automateringsprocess, dvs. en kommentar om at en given funktion (Transponse) kan virke i en process (Makro), kan jeg ikke bruge til noget. Derfor foretrækker jeg processen beskrevet i en formel.
Så får da en formel. Hvis vi siger at dine data ligger fra A1:A10 så marker B1:K10 og indsæt denne formel =TRANSPONER(A1:A10) afslut med ctrl - shift -enter, så formlen får { } omkring.
Det var lige hvad jeg kunne bruge, tusind tak til alle men specielt til bak for forslaget til formelen til løsningen af mit problem. Den kan jeg vidreudvikle så den passer ind i mit projekt
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.
