Hoe herhaal je rijen een specifiek aantal keren op basis van een andere kolom in Excel?
Heb je ooit geprobeerd om een rij te herhalen op basis van de waarde van een andere kolom, zoals in onderstaande schermafbeelding wordt getoond? In dit artikel introduceer ik de methode om deze taak in Excel uit te voeren.
Herhaal rijen op basis van een andere kolomwaarde met VBA
Herhaal rijen op basis van een andere kolomwaarde met Kutools voor Excel
Herhaal rijen op basis van een andere kolomwaarde met VBA
Hier heb ik een code die snel rijen kan herhalen op basis van de waarden in de laatste kolom.
1. Druk op Alt + F11 toetsen om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik op Invoegen > Module, kopieer vervolgens onderstaande code en plak deze in het nieuwe Modulescript.
VBA: Herhaal rijen op basis van een andere kolomwaarde
Sub CopyRow()
'UpdatebyExtendoffice20181011
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the number value", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub
3. Druk op F5 toets, er verschijnt een dialoogvenster waarin je de nummerlijst selecteert waarop de rijen zullen worden herhaald.
4. Klik op OK, de rijen zijn herhaald op basis van de geselecteerde kolomwaarde.
Herhaal rijen op basis van een andere kolomwaarde met Kutools voor Excel
Als je niet goed bent in het gebruik van VBA, kun je proberen Kutools voor Excel’s functie Rijen/Kolommen Dupliceren Gebaseerd op Celwaarde, wat slechts twee stappen vereist.
1. Klik op Kutools > Invoegen > Rijen/Kolommen Dupliceren Gebaseerd op Celwaarde.
2. In het pop-updialoogvenster kies je Rijen kopiëren en invoegen optie in de Type sectie, selecteer dan het bereik dat je wilt herhalen naar Invoegbereiktekstvak, en kies de kolom die de herhalingstijden bepaalt in het Herhalingstijden tekstvak. Klik op Ok.
De rijen worden nu herhaald op basis van de geselecteerde kolom.
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen