Com es pot duplicar les files en funció del valor de la cel·la en una columna?

Per exemple, tinc un rang de dades que conté una llista de números a la columna D, i ara, vull duplicar totes les files diverses vegades en funció dels valors numèrics de la columna D per obtenir el resultat següent. Com puc copiar les files diverses vegades en funció dels valors de les cel·les d'Excel?

Dupliqui files diverses vegades en funció dels valors de les cel·les amb el codi VBA

Dupliqui files diverses vegades en funció dels valors de les cel·les amb el codi VBA

Per copiar i duplicar totes les files diverses vegades en funció dels valors de les cel·les, el següent codi VBA us pot ajudar, feu el següent:

1. Mantingueu premut el botó ALT + F11 claus per obrir el Microsoft Visual Basic per a aplicacions finestra.

2. Clic Insereix > Mòduls, i enganxeu el següent codi al Mòduls Finestra.

Codi VBA: Duplica files diverses vegades segons el valor de la cel·la:

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. A continuació, premeu F5 clau per executar aquest codi, totes les files s'han duplicat diverses vegades segons el valor de la cel·la a la columna D tal com necessiteu.

Nota: En el codi anterior, la lletra A indica la columna d'inici del vostre rang de dades i la lletra D és la lletra de columna que voleu duplicar en funció de les files. Canvieu-los a la vostra necessitat.

Eines de productivitat recomanades

Pestanya d'Office

Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel