Hvordan duplikeres rækker baseret på celleværdi i en kolonne?
For eksempel har jeg en række data, der indeholder en liste over tal i kolonne D, og nu vil jeg duplikere hele rækkerne et antal gange baseret på de numeriske værdier i kolonne D for at få følgende resultat. Hvordan kunne jeg kopiere rækkerne flere gange baseret på celleværdierne i Excel?
![]() |
![]() |
![]() |
Kopier rækker flere gange baseret på celleværdier med VBA-kode
Kopier rækker flere gange baseret på celleværdier med VBA-kode
For at kopiere og duplikere hele rækkerne flere gange baseret på celleværdierne, kan følgende VBA-kode hjælpe dig, gør venligst som dette:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Kopier rækker flere gange baseret på celleværdi:
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. Tryk derefter på F5 nøgle til at køre denne kode, er hele rækkerne duplikeret flere gange baseret på celleværdien i kolonne D, som du har brug for.
Kopier og indsæt rækker baseret på et bestemt antal gange med et praktisk værktøj - Kutools for Excel
Hvis du ikke er bekendt med VBA-koden og ikke selv er i stand til at ændre parametrene i koden korrekt. I dette tilfælde Kutools for Excel's Dublerede rækker/kolonner baseret på celleværdi funktionen kan hjælpe dig med at kopiere og indsætte rækker flere gange baseret på celleværdierne med kun tre klik.
- Klik Kutools > indsatte > Dublerede rækker/kolonner baseret på celleværdi for at aktivere denne funktion;
- Vælg derefter Kopier og indsæt rækker mulighed, og angiv cellerne i Indsæt rækkevidde Gentag gange separat i dialogboksen.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools for Excel, og oplev effektivitet som aldrig før. Kutools for Excel Tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Office Tab Giver fanebladsgrænseflade til Office og gør dit arbejde meget nemmere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!













