Hoe dupliceer ik rijen op basis van de celwaarde in een kolom?
Ik heb bijvoorbeeld een gegevensbereik dat een lijst met getallen in kolom D bevat, en nu wil ik de hele rijen een aantal keer dupliceren op basis van de numerieke waarden in kolom D om het volgende resultaat te krijgen. Hoe kan ik de rijen meerdere keren kopiëren op basis van de celwaarden in Excel?
 |
 |
 |
Dubbele rijen meerdere keren op basis van celwaarden met VBA-code
Dubbele rijen meerdere keren op basis van celwaarden met VBA-code
Om de volledige rijen meerdere keren te kopiëren en te dupliceren op basis van de celwaarden, kan de volgende VBA-code u helpen, doe dit als volgt:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: dubbele rijen meerdere keren op basis van celwaarde:
Sub CopyData()
'Updateby Extendoffice
Dim xRow As Long
Dim VInSertNum As Variant
xRow = 1
Application.ScreenUpdating = False
Do While (Cells(xRow, "A") <> "")
VInSertNum = Cells(xRow, "D")
If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
Selection.Insert Shift:=xlDown
xRow = xRow + VInSertNum - 1
End If
xRow = xRow + 1
Loop
Application.ScreenUpdating = False
End Sub
3. Druk vervolgens op F5 sleutel om deze code uit te voeren, zijn de volledige rijen meerdere keren gedupliceerd op basis van de celwaarde in kolom D zoals je nodig hebt.
Kopieer en voeg rijen in op basis van een bepaald aantal keren met een handig hulpmiddel - Kutools voor Excel
Als u niet bekend bent met de VBA-code en de parameters in de code niet zelf correct kunt wijzigen. In dit geval de Kutools for Excel's Dupliceer rijen / kolommen op basis van celwaarde functie kan u helpen om rijen meerdere keren te kopiëren en in te voegen op basis van de celwaarden met slechts drie klikken.
- Klik Kutools > Invoegen > Dubbele rijen/kolommen op basis van celwaarde om deze functie in te schakelen;
- Kies dan Kopieer en voeg rijen in optie en specificeer de cellen van het Bereik invoegen en Herhaal tijden afzonderlijk in het dialoogvenster.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
