Hur dupliceras rader baserat på cellvärde i en kolumn?
Till exempel har jag en rad data som innehåller en lista med siffror i kolumn D, och nu vill jag duplicera hela raderna ett antal gånger baserat på de numeriska värdena i kolumn D för att få följande resultat. Hur kunde jag kopiera raderna flera gånger baserat på cellvärdena i Excel?
 |
 |
 |
Duplicera rader flera gånger baserat på cellvärden med VBA-kod
Duplicera rader flera gånger baserat på cellvärden med VBA-kod
För att kopiera och duplicera hela raderna flera gånger baserat på cellvärdena kan följande VBA-kod hjälpa dig, gör så här:
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: Duplicera rader flera gånger baserat på cellvärde:
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. Tryck sedan på F5 nyckeln för att köra den här koden har hela raderna duplicerats flera gånger baserat på cellvärdet i kolumn D som du behöver.
Kopiera och infoga rader baserat på ett angivet antal gånger med ett praktiskt verktyg - Kutools för Excel
Om du inte är bekant med VBA-koden och inte själv kan ändra parametrarna i koden korrekt. I det här fallet Kutools för Excel's Duplicera rader/kolumner baserat på cellvärde funktionen kan hjälpa dig att kopiera och infoga rader flera gånger baserat på cellvärdena med bara tre klick.
- Klicka Kutools > Insert > Duplicera rader/kolumner baserat på cellvärde för att aktivera denna funktion;
- Sedan Välj Kopiera och infoga rader alternativet och ange cellerna i Infoga intervall och Upprepa gånger separat i dialogrutan.
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
