Hvordan gentager man rækker et bestemt antal gange baseret på en anden kolonne i Excel?
Har du nogensinde prøvet at gentage en række baseret på en anden kolonneværdi som vist nedenstående skærmbillede? I denne artikel vil jeg introducere metoden til løsning af dette job i Excel.
Gentag rækker baseret på en anden kolonneværdi med VBA
Gentag rækker baseret på en anden kolonneværdi af Kutools til Excel
Gentag rækker med en fast tid af Kutools til Excel
Gentag rækker baseret på en anden kolonneværdi med VBA
Her har jeg en kode, som hurtigt kan gentage rækkerne baseret på de sidste kolonneværdier.
1. Trykke Alt + F11 taster for at aktivere Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > Moduler, kopier derefter nedenstående kode og indsæt den i den nye Moduler scripts.
VBA: Gentag rækker baseret på en anden kolonneværdi
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. Trykke F5 tast, en dialog vises, vælg den nummerliste, som rækkerne gentages ud fra.
4. Klik på OK, rækkerne er gentaget baseret på den valgte kolonneværdi.
Gentag rækker baseret på en anden kolonneværdi af Kutools til Excel
Hvis du ikke er god til at bruge VBA, kan du prøve Kutools til Excel's Dublerede rækker/kolonner baseret på celleværdi funktion, som kun skal bruge to trin.
Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. |
1. klik Kutools > indsatte > Dublerede rækker/kolonner baseret på celleværdi.
2. I pop op-dialogboksen skal du vælge Kopier og indsæt rækker valgmulighed i Type sektion, og vælg derefter det område, du vil gentage til Indsæt Range tekstboksen, og vælg den kolonne, der bestemmer gentagelsestiderne til Gentag gange tekstboks. Klik på Ok.
Derefter vil rækkerne blive gentaget af den valgte kolonne.
Gentag rækker med en fast tid af Kutools til Excel
Hvis du vil gentage rækker med en fast tid uden at indsætte rækker en efter en, kan du prøve at bruge Indsæt tomme rækker og kolonner , Fyld tomme celler forsyninger af Kutools til Excel for hurtigt at håndtere dette job.
Efter installation Kutools til Excel, gør venligst som nedenfor:(Gratis download Kutools til Excel nu!)
1. Vælg det dataområde, du vil gentage rækker, klik på Kutools > indsatte > Indsæt tomme rækker og kolonner. Derefter i Indsæt tomme rækker og kolonner dialog, tjek Tomme rækker indstilling, skriv derefter 1 ind Interval of tekstboks, og skriv det nummer, du vil gentage rækker i Rækker tekstboks.
2. klik Ok, de tomme rækker er indsat under hver række.
3. Hold det valgte interval, klik Kutools > indsatte > Fyld tomme celler. I Fyld tomme celler dialog, tjek Baseret på værdier , ned valgmuligheder.
4. klik Ok. Nu er de tomme celler fyldt med ovenstående værdi.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til 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...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- 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!