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 le intere righe 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 delle celle in Excel?
 |
 |
 |
Duplica le righe più volte in base ai valori delle celle con codice VBA
Duplica le righe più volte in base ai valori delle celle con codice VBA
Per copiare e duplicare l'intera riga più volte in base ai valori della cella, il seguente codice VBA può aiutarti, per favore fai come segue:
1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.
Codice VBA: duplica le righe più volte in base al valore della cella:
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. Quindi premere F5 chiave per eseguire questo codice, le intere righe sono state duplicate più volte in base al valore della cella nella colonna D di cui hai bisogno.
Copia e inserisci righe in base a un numero specificato di volte con uno strumento pratico: Kutools per Excel
Se non hai familiarità con il codice VBA e non sei in grado di modificare correttamente i parametri nel codice da solo. In questo caso, il Kutools for Excel's Righe / colonne duplicate in base al valore della cella la funzione può aiutarti a copiare e inserire righe più volte in base ai valori della cella con soli tre clic.
- Clicchi Kutools > inserire > Righe/colonne duplicate in base al valore della cella per abilitare questa funzione;
- Quindi, scegli Copia e inserisci righe opzione e specificare le celle del file Inserisci intervallo ed Ripeti i tempi separatamente nella finestra di dialogo.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
