Gegevens exporteren naar ander tabblad?

[Excelvraag1]

Ik heb een vraag

Ik heb in tabblad 1 de volgende gegevens

Jan 6
Pieter 5
Corneel 4
Koos 8
Klaas 9
Piet 2
Kees 1

Wat ik nou zou willen dat dit in tabblad 2 in rij A automatisch wordt ingevoegd de namen x het aantal regels van hierboven.

Er moet dus komen automatisch :
Op regel 1/tm 6 Jan (=6x), op regel 7 t/m 11 (=5x) Pieter, op regel 12 t/m 15 Corneel (=4x), 16 t/m 23 Koos (=8x)

Kan iemand mij hiermee helpen?

Groetjes,
Alfons.

 

[SjonR]

met vba?

Sub SjonR()

For Each cl In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    For i = 1 To cl.Offset(, 1)
        Blad2.Cells(n + i, 1) = cl
    Next
    n = n + i - 1
Next

End Sub

 

[Excelvraag1]

Oke ik ben niet zo bekend met vba hoe implementeer je dat dan in het bestand?

 

[SjonR]

Bijvoorbeeld door een knop toe te voegen de tab Ontwikkelaars en daar de code te plaatsen. Als je deze nog niet ziet, moet je deze via bestand > opties > Lint aanpassen even aanvinken.

 

[Excelvraag1]

En als ik in dit voorbeeld nou alle 4 de kolommen wil kopieren met nog kolom 5 het aantal rijen?

 

[SjonR]

zo dan?

 

[VenA]

Een iets snellere variant

Sub VenA()
  ar = Blad1.Cells(1).CurrentRegion
  ReDim ar1(3, 0)
  For j = 2 To UBound(ar)
    For jj = 1 To ar(j, 5)
      ar1(0, UBound(ar1, 2)) = ar(j, 1)
      ar1(1, UBound(ar1, 2)) = ar(j, 2)
      ar1(2, UBound(ar1, 2)) = ar(j, 3)
      ar1(3, UBound(ar1, 2)) = ar(j, 4)
      ReDim Preserve ar1(3, UBound(ar1, 2) + 1)
    Next jj
  Next j
  Blad2.Cells(1).Resize(UBound(ar1, 2), 4) = Application.Transpose(ar1)
End Sub

 

[SjonR]

Altijd maar haast