Hogyan oszthatjuk meg az oszlopban a cellák értékének alapján létrehozott sorokat?

Például rendelkezem egy sor adattal, amely tartalmazza a D oszlopban lévő számok listáját, és most a D oszlopban lévő numerikus értékek alapján többször is meg szeretnék duplázni a teljes sorokat a következő eredmény eléréséhez. Hogyan másolhatom többször a sorokat az Excel cella értékei alapján?

Másoljon sorokat többször a VBA kóddal rendelkező cellák értékei alapján

Másoljon sorokat többször a VBA kóddal rendelkező cellák értékei alapján

A teljes sorok többszörözésére és másolására a cellaértékek alapján a következő VBA-kód segíthet, kérjük, tegye meg ezt:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA kód: többszörös sorok többszöröse a cellaérték alapján:

Sub CopyData()
'Updateby Extendoffice 20160922
    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. Ezután nyomja meg a gombot F5 kulcsot a kód futtatásához, akkor a teljes sorokat többször megismételjük a D oszlopban levő cellaérték alapján, amire szükségünk van.

Megjegyzések: A fenti kódban a levél A jelzi az adatsor kezdő oszlopát és a betűt D az az oszloplevél, amelyre a sorokat szeretné megismételni. Kérjük, változtassa meg őket az Ön igényeire.

Ajánlott termelékenységi eszközök

Office Tab

Kényelmes lapokat hozhat Excel és más Office szoftverekhez, akárcsak a Chrome, a Firefox és az új Internet Explorer.

Kutools for Excel