Hoe herhaalt u rijen een opgegeven aantal keer op basis van waarden in een andere kolom in Excel?
Hebt u ooit geprobeerd een rij te herhalen op basis van een waarde uit een andere kolom, zoals in de onderstaande schermafbeelding wordt getoond? In dit artikel leg ik uit hoe u deze taak eenvoudig kunt uitvoeren in Excel.
Rijen herhalen op basis van een waarde in een andere kolom met VBA
Rijen herhalen op basis van een waarde in een andere kolom met Kutools voor Excel
Rijen herhalen op basis van een waarde in een andere kolom met VBA
Hier heb ik een code die rijen snel herhaalt op basis van de waarden in de laatste kolom.
1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module, kopieer vervolgens de onderstaande code en plak deze in het nieuwe Module-script.
VBA: Rijen herhalen op basis van een waarde in een andere kolom
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. Er verschijnt een dialoogvenster waarin u de getallenlijst selecteert op basis waarvan de rijen moeten worden herhaald.
4. Klik op OK. De rijen worden nu herhaald op basis van de geselecteerde kolomwaarde.
Rijen herhalen op basis van een waarde in een andere kolom met Kutools voor Excel
Bent u niet zo handig met VBA? Probeer dan de functie Kutools voor Excel – Dubbele rijen/kolommen op basis van celwaarde – die in slechts twee stappen werkt.
1. Klik op Kutools > Invoegen > Dubbele rij/kolommen op basis van celwaarde.
2. In het verschijnende dialoogvenster kiest u in het gedeelte Type de optie Rijen kopiëren en invoegen. Selecteer vervolgens het bereik dat u wilt herhalen in het tekstvak Bereik invoegen en kies de kolom die bepaalt hoe vaak moet worden herhaald in het tekstvak Herhalingstijden. Klik op OK.
Vervolgens worden de rijen herhaald op basis van de geselecteerde kolom.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins