Hoe rijen een bepaald aantal keren herhalen op basis van een andere kolom in Excel?
Heb je ooit geprobeerd een rij te herhalen op basis van een andere kolomwaarde, zoals onderstaand screenshot? In dit artikel zal ik de methode introduceren om deze taak in Excel op te lossen.
Herhaal rijen op basis van een andere kolomwaarde met VBA
Herhaal rijen op basis van een andere kolomwaarde door Kutools voor Excel
Herhaal rijen met een vaste tijd door Kutools voor Excel
Herhaal rijen op basis van een andere kolomwaarde met VBA
Hier heb ik een code die de rijen snel kan herhalen op basis van de laatste kolomwaarden.
1. druk op Alt + F11 toetsen om in te schakelen Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > Module, kopieer vervolgens onderstaande code en plak deze in het nieuwe Module scripts.
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, een dialoogvenster verschijnt, selecteer de nummerlijst waarop de rijen zullen worden herhaald op basis van.
4. Klik op OK, de rijen zijn herhaald op basis van de geselecteerde kolomwaarde.
Herhaal rijen op basis van een andere kolomwaarde door Kutools voor Excel
Als je niet goed bent in het gebruik van VBA, kun je het proberen Kutools for Excel's Dubbele rijen/kolommen op basis van celwaarde functie, die slechts twee stappen nodig heeft.
Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. |
1. klikken Kutools > Invoegen > Dubbele rijen/kolommen op basis van celwaarde.
2. Kies in het popping-dialoogvenster Kopieer en voeg rijen in optie in het Type sectie en kies vervolgens het bereik dat u wilt herhalen Nummer invoegene tekstvak, en kies de kolom die de herhalingstijden bepaalt voor de Herhaal tijden tekstvak. Klik Ok.
Vervolgens worden de rijen herhaald door de geselecteerde kolom.
Herhaal rijen met een vaste tijd door Kutools voor Excel
Als u rijen met een vaste tijd wilt herhalen zonder rijen één voor één in te voegen, kunt u proberen de Voeg lege rijen en kolommen in en Vul lege cellen hulpprogramma's van Kutools for Excel om deze klus snel af te handelen.
Na het installeren van Kutools voor Excel, doe het als volgt:(Download nu Kutools voor Excel!)
1. Selecteer het gegevensbereik waarvoor u rijen wilt herhalen, klik op Kutools > Invoegen > Voeg lege rijen en kolommen in. Dan in de Voeg lege rijen en kolommen in dialoogvenster, vink aan Lege rijen optie en typ vervolgens 1 in Interval uitf tekstvak en typ het nummer waarin u rijen wilt herhalen Rijen tekstvak.
2. klikken Okzijn de lege rijen onder elke rij ingevoegd.
3. Houd het bereik geselecteerd en klik op Kutools > Invoegen > Vul lege cellen. In de Vul lege cellen dialoogvenster, vink aan Gebaseerd op waarden en Beneden opties.
4. klikken Ok. Nu zijn de lege cellen gevuld met bovenstaande waarde.
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!