I cookie ci aiutano i nostri servizi. Utilizzando i nostri servizi, l'utente accetta di utilizzare i cookie.
Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Log In
x
or
x
x
Registrati
x

or

Come duplicare le righe in base al valore della cella in una colonna?

Ad esempio, ho un intervallo di dati che contiene un elenco di numeri nella colonna D, e ora, voglio duplicare l'intera riga un numero di volte in base ai valori numerici nella colonna D per ottenere il seguente risultato. Come posso copiare le righe più volte in base ai valori della cella in Excel?

doc duplicare le righe per cella 1

Duplica le righe più volte in base ai valori delle celle con codice VBA


freccia blu bolla destra Duplica le righe più volte in base ai valori delle celle con codice VBA

Per copiare e duplicare le righe intere più volte in base ai valori della cella, il seguente codice VBA può aiutarti, per favore fai come segue:

1. Tenere premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incollare il seguente codice nel Modulo Finestra.

Codice VBA: righe duplicate più volte in base al valore della cella:

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. Quindi premere F5 chiave per eseguire questo codice, l'intera riga è stata duplicata più volte in base al valore della cella nella colonna D di cui hai bisogno.

Note: Nel codice sopra, la lettera A indica la colonna iniziale dell'intervallo di dati e la lettera D è la lettera di colonna in cui si desidera duplicare le righe in base a. Si prega di cambiarli secondo le tue necessità.



Strumenti di produttività consigliati

Office Tab

stella d&#39;oro1 Porta pratiche schede ad Excel e ad altri software Office, proprio come Chrome, Firefox e il nuovo Internet Explorer.

Kutools for Excel

stella d&#39;oro1 Stupefacente! Aumenta la tua produttività in 5 minuti. Non servono abilità speciali, risparmiate due ore al giorno!

stella d&#39;oro1 300 Nuove funzionalità per Excel, rendono Excel molto semplice e potente:

  • Unisci cella / righe / colonne senza perdere dati.
  • Combina e consolida più fogli e cartelle di lavoro.
  • Confronta intervalli, copia intervalli multipli, conversione testo in data, unità e conversione valuta.
  • Contare in base a colori, totali parziali cercapersone, ordinamento avanzato e filtro super,
  • Altro Seleziona / Inserisci / Elimina / Testo / Formato / Link / Commento / Cartelle di lavoro / Fogli di lavoro Strumenti ...

Schermata di Kutools per Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sqril · 1 years ago
    I love you. Thank you.
  • To post as a guest, your comment is unpublished.
    Jamie · 1 years ago
    This worked perfectly. What would I add to your code to make any lines with '0' disappear? We are using this for SKU labels. Thanks for the great solution!