CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede soren-jensen Nybegynder
06. oktober 2009 - 16:28 Der er 3 kommentarer og
1 løsning

Indsætte x antal rækker vha macro

Jeg har et regneark med én vare pr. række, sidste felt i rækken indeholder et antal. Jeg skal bruge en macro kopierer de enkelte rækker og indsætter dem i et nyt ark x antal gange i henhold til antallet i det sidste felt i rækken.

F.eks.:
Varenr1 | Varenavn1 | 2
Varenr2 | Varenavn2 | 3

Skal kopieres over i et nyt ark og ende med at se således ud:
Varenr1 | Varenavn1
Varenr1 | Varenavn1
Varenr2 | Varenavn2
Varenr2 | Varenavn2
Varenr2 | Varenavn2
Avatar billede excelent Ekspert
06. oktober 2009 - 16:57 #1
Forudsætter data i kolonne A,B,C - kopieres til kolonne A,B

Sub tst()

Set sh1 = Sheets("Ark1") ' Ret til aktuel Arknavn
Set sh2 = Sheets("Ark2") ' Ret til aktuel Arknavn

rk1 = sh1.Cells(65500, 1).End(xlUp).Row + 1

For t = 1 To rk1
  For l = 1 To Cells(t, 3)
    rk2 = sh2.Cells(65500, 1).End(xlUp).Row + 1
    sh1.Range("A" & t & ":B" & t).Copy sh2.Range("A" & rk2)
  Next
Next

End Sub
Avatar billede excelent Ekspert
06. oktober 2009 - 16:58 #2
lille rettelse

Sub tst()

Set sh1 = Sheets("Ark1") ' Ret til aktuel Arknavn
Set sh2 = Sheets("Ark2") ' Ret til aktuel Arknavn

rk1 = sh1.Cells(65500, 1).End(xlUp).Row + 1

For t = 1 To rk1
  For l = 1 To sh1.Cells(t, 3)
    rk2 = sh2.Cells(65500, 1).End(xlUp).Row + 1
    sh1.Range("A" & t & ":B" & t).Copy sh2.Range("A" & rk2)
  Next
Next

End Sub
Avatar billede soren-jensen Nybegynder
07. oktober 2009 - 10:22 #3
Fantastisk. Det virker som det skal.

Du har fortjent dine point. Smid et svar.
Avatar billede excelent Ekspert
07. oktober 2009 - 15:03 #4
ok velbekom
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
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 mefa i Excel 7 05/01/202518:07 05/01/202520:25
Excel VBA fil kørsel Af macadisé i Excel 5 05/01/202513:33 06/01/202517:04
Formale på dage Af norberg i Excel 9 02/01/202509:57 05/01/202516:23
NUM. tastatur og pc indbygget mus virker ikke. Af arnepedersen i Excel 30 27/12/202410:47 29/12/202414:32
Automatisk give specifikke point udfra placering Af jernrosen3 i Excel 5 19/12/202410:24 22/12/202413:14
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 dag 00:29 WIFI problem på bærbar pc Af kenneth westlin i Wifi
I går 18:24 original vs uoriginal toner Af Champagne Passion i Printere
06/0121:54 Flytte DNS til VPS server - igen Af crjensen i Andet netværk
06/0119:07 Er nogle bekendt med et udenlandsk domæne som hedder wbdata\\schoten Af cyperbent i PC
06/0116:19 Bitlocker låser ikke C-drevet Af valby i Windows
White papers
Flere white papers »


Premium
Teaser billede
Her vil Datatilsynet slå ned i 2025: Otte områder får særligt fokus - lægeklinikker vil stå for skud
Læs mere »
Dette område er ved at overhale AI som førsteprioritet: Bekymringen breder sig
Høj vækst stiller top-CIO Rene Overgaard Jensen over for svære valg: "Det knager altid lidt i sømmene, når man lægger så meget volumen på"
It-leverandør er gået konkurs: Nu har .Net-brugere kun få dage til at reagere
Se alle »
Computerworld
Teaser billede
Årtiers kamp for netneutralitet ser nu ud til at være slut
Læs mere »
Morgen-briefing: Elon Musk ændrer sit navn / Investor-guruen Warren Buffet går efter en bestemt it-aktie / 3Shape i forlig om ophavsret / Datacentres elforbrug kan volde store problemer / Dansk branche er kravlet op ad robot-liste
Dansk it-iværksætter drømmer om børsnotering til milliarder, men har svært ved at betale løn
CEO for børsnoteret cybersikkerheds-selskab er død i en alder af 54
Se alle »
CIO
Teaser billede
Microsoft vil sige farvel til rekordstort antal løsninger i 2025: Disse produkter skal aflives
Læs mere »
Microsoft: Disse seks tendenser vil dominere teknologi-udviklingen i 2025
Top-CIO Kenneth Lindegaard får international topstilling: Skal skabe banebrydende rumteknologi
Ny it-sikkerhedschef for Microsoft Danmark: Her er Rasmus Knappes vigtigste opgaver lige nu
Se alle »
Job & Karriere
Teaser billede
Merete Søby klar med nyt top-job efter pludselig exit fra Schultz: Her er hendes nye job
Læs mere »
Dansk headhunter: Dette spørgsmål bliver jeg næsten altid stillet, når jeg forsøger at rekruttere it-folk
Twoday er rykket til et af de dyreste postnumre i Danmark – og det kan betale sig, siger topchef Lars Berthelsen
Vælter ind mod det centrale København: Derfor samler tusindvis af danske it-arbejdspladser sig på nogle af de dyreste adresser i Danmark
Se alle »
White paper
Teaser billede
Sådan: Én løsning til compliance, sikkerhed og overblik
Læs mere »
Sæt professionel døgnvagt på din it-infrastruktur
Sæt turbo på din cloudperformance og minimér risikoen for DDoS-angreb
Derfor kræver AI, cloud og sikkerhed et stærkere netværk
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »