rijen dupliceren met variabel aantal

[edjep]

Hallo allen,

Ik heb de volgende uitdaging:

In excel moeten rijen gedupliceerd worden volgens een opgegeven aantal in het excel sheet.
Het aantal keren is variabel en is het product van kolom H-G : 2
Ook het huisnr moet hierbij oplopend in worden opgenomen.
Met het automatisch maken van een macro kom ik hier niet uit.

Hieronder een voorbeeld (excuses, kan geen bestand uploaden)
volgnr straatnaam huisnr wijkcode lettercomb plaats huisnr_van huisnr_tm reeksindicatie
1 AAAAA 1 1111 AA AAA 1 29 ONEVEN
2 BBBB 2 2222 BB BBB 2 6 EVEN
3 CCCCCCC 2 3333 CC CCC 2 6 EVEN
4 DDDDD 31 4444 DD DDD 31 67 ONEVEN


1 AAAAA 1 1111 AA AAA 1 29 ONEVEN
AAAAA 3 1111 AA AAA 1 29 ONEVEN
AAAAA 5 1111 AA AAA 1 29 ONEVEN
AAAAA 7 1111 AA AAA 1 29 ONEVEN
AAAAA 9 1111 AA AAA 1 29 ONEVEN
AAAAA 11 1111 AA AAA 1 29 ONEVEN
AAAAA 13 1111 AA AAA 1 29 ONEVEN
AAAAA 15 1111 AA AAA 1 29 ONEVEN
AAAAA 17 1111 AA AAA 1 29 ONEVEN
AAAAA 19 1111 AA AAA 1 29 ONEVEN
AAAAA 21 1111 AA AAA 1 29 ONEVEN
AAAAA 23 1111 AA AAA 1 29 ONEVEN
AAAAA 25 1111 AA AAA 1 29 ONEVEN
AAAAA 27 1111 AA AAA 1 29 ONEVEN
AAAAA 29 1111 AA AAA 1 29 ONEVEN
2 BBBB 2 2222 AA BBB 2 6 EVEN
BBBB 4 2222 AA BBB 2 6 EVEN
BBBB 6 2222 AA BBB 2 6 EVEN

Iemand enig idee hoe dit te realiseren?

 

[HSV]

Zelf maar een reproductie gemaakt.
Run de macro en zie blad2.

Sub HSV()
Dim cl As Range, i As Long
  With Sheets(1)
   For Each cl In .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
    For i = cl.Offset(, 6) To cl.Offset(, 7) Step 2
 With Sheets("Blad2")
    .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(, 9) = cl.Resize(, 9).Value
    .Cells(.Rows.Count, 3).End(xlUp) = i
   End With
  Next i
 Next cl
 End With
End Sub

 

[edjep]

Beste HSV,

Dit is precies de bedoeling.
Helemaal top!!