Rijen kopieren

Status
Niet open voor verdere reacties.

Barts01

Nieuwe gebruiker
Lid geworden
29 jun 2018
Berichten
2
Hallo allemaal,

Ik heb de volgende uitdaging (al zal het voor de meeste hier heel eenvoudig zijn)...

Ik heb een bestand met 5 kolommen en 4 regels.
In de laatste kolom staat aantal keer dat een regel gekopieerd dient te worden (variabel)
Dat mag in hetzelfde werkblad maar ook in een nieuw werkblad.

Hoe kan ik dat het beste doen via een VBA?

Alvast dank voor de reactie!

Groeten Bart

excel.png
 
Welkom op het forum Bart.

Probeer dit eens:

Code:
Sub SjonR()
    SR = Cells(1).CurrentRegion.Offset(1)
    ReDim SR2(Application.Sum(Columns(5)), 4) As String
        For i = 1 To UBound(SR) - 1
            For j = j To j + SR(i, 5) - 1
                For n = 0 To 3
                    SR2(j, n) = SR(i, n + 1)
                Next
            Next
        Next
    Cells(2, 1).Resize(UBound(SR2), 4) = SR2
End Sub

Maar wat is hier het praktisch nut van?
 
Laatst bewerkt:
Hey SjonR,

Super bedankt, dit is precies wat ik zocht en scheelt mij veel werk!

Gr. Bart
 
Dat is mooi! Wil je bij een volgende vraag een voorbeeldbestandje plaatsen?

Dat maakt het ons makkelijker. :thumb:
 
Twee lussen minder; iets sneller maar verwaarloosbaar.
Code:
Sub hsv()
Dim sv, hs, i As Long, c00 As String
 sv = Cells(1).CurrentRegion
        For i = 2 To UBound(sv)
         c00 = c00 & Application.Rept(" " & i, sv(i, 5))
        Next
     hs = Application.Transpose(Split(Trim(c00)))
   Cells(2, 15).Resize(UBound(hs), 4) = Application.Index(sv, hs, Array(1, 2, 3, 4))
End Sub

Edit: Bij groter aantallen fluctueert de tijd nogal van beide (geheugen waarschijnlijk).
 
Laatst bewerkt:
@Harry

Deze toverdoos ga ik even bestuderen.

:thumb:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan