Søg
Avatar billede osborne Praktikant
22. april 2007 - 23:38 Der er 1 løsning

Macro til at fordele data ?

Jeg skal have data fra et større antal rækker "vendt om" til kolonner, men desværre ikke lige sådan at jeg kan bruge transpose. Jeg tænker derfor på om det kan klares med en macro?

Mine rækker ser således ud (hvor bogstaverne repræsenterer dataindholdet i de enkelte celler):

A B C D E F G H I J K L M N O P

Og det skal formatteres så hver rækker bliver til ni linier således:

A C
B
D E
F G
H I
J K
L M
N O
P

Og så måske en blank linie inden data fra næste række kommer.

Jeg er helt novice mht. macroer i Excel og vil høre om der nogen der vil forbarme sig og hjælpe mig med en macro til en sådan speciel "data rokering". Det vil være en stor hjælp.

På forhånd tak
Avatar billede osborne Praktikant
23. april 2007 - 00:24 #1
Så fik jeg set på lidt macro halløj .. og det var ikke så svært endda. Jeg fik løst mit problem og her er koden. Kan sikkert gøres smartere, men det her virker og det er jo hovedsagen :-)

Sub bimse()

start_læse_rk = 1
slut_læse_rk = 2
antal_rk = slut_læse_rk - start_læse_rk + 1

skrive_rk = 10
For i = start_læse_rk To slut_læse_rk
    ActiveSheet.Range("A" & skrive_rk) = ActiveSheet.Range("A" & i)
    ActiveSheet.Range("B" & skrive_rk) = ActiveSheet.Range("C" & i)
   
    ActiveSheet.Range("A" & skrive_rk + 1) = ActiveSheet.Range("B" & i)
   
    ActiveSheet.Range("A" & skrive_rk + 2) = ActiveSheet.Range("D" & i)
    ActiveSheet.Range("B" & skrive_rk + 2) = ActiveSheet.Range("E" & i)
   
    ActiveSheet.Range("A" & skrive_rk + 3) = ActiveSheet.Range("F" & i)
    ActiveSheet.Range("B" & skrive_rk + 3) = ActiveSheet.Range("G" & i)
   
    ActiveSheet.Range("A" & skrive_rk + 4) = ActiveSheet.Range("H" & i)
    ActiveSheet.Range("B" & skrive_rk + 4) = ActiveSheet.Range("I" & i)
   
    ActiveSheet.Range("A" & skrive_rk + 5) = ActiveSheet.Range("J" & i)
    ActiveSheet.Range("B" & skrive_rk + 5) = ActiveSheet.Range("K" & i)
   
    ActiveSheet.Range("A" & skrive_rk + 6) = ActiveSheet.Range("L" & i)
    ActiveSheet.Range("B" & skrive_rk + 6) = ActiveSheet.Range("M" & i)
   
    ActiveSheet.Range("A" & skrive_rk + 7) = ActiveSheet.Range("N" & i)
    ActiveSheet.Range("B" & skrive_rk + 7) = ActiveSheet.Range("O" & i)
   
    ActiveSheet.Range("A" & skrive_rk + 8) = ActiveSheet.Range("P" & i)
   
    skrive_rk = skrive_rk + 10
Next
End Sub
Avatar billede 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.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Måned og år på graf Af mort1 i Excel 4 31/10/202613:01 01/11/202614:13
VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel 9 23/09/202618:11 24/09/202611:16
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 04/09/202602:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 16:24 Google driller på MS Edge Af ErikHg i Browsere
I går 15:48 søger pris på en bærbar Af dcedata1977 i PC
06/1119:03 iMac 2026 M6 10-core GPU (standart ell opdatering) Af LLG i Mac
06/1109:43 Vista Af susej14 i Andet software
05/1111:47 Printernavn i Enhedshåndtering er et andet end i Printere og Scannere Af Uvanga i Printere
White papers
Flere white papers »