Come si fa a copiare e incollare una riga più volte o a duplicarla x volte in Excel?
Nel tuo lavoro quotidiano, ti è mai capitato di dover copiare una riga (o tutte le righe) e inserirla più volte subito dopo la riga corrente in un foglio di lavoro? Ad esempio, ho un intervallo di celle e vorrei duplicare ogni riga incollandola tre volte nella posizione successiva, come illustrato nello screenshot seguente. Come puoi eseguire questa operazione in Excel?
 |  |  |
- Copia e inserisci una riga specifica più volte con codice VBA
- Copia e inserisci ogni riga più volte con codice VBA
- Copia e inserisci ogni riga più volte in base a un numero specifico con una funzionalità eccezionale
Copia e inserisci una riga specifica più volte con codice VBA
Se desideri duplicare una riga specifica esattamente x volte, il seguente codice VBA potrebbe fare al caso tuo. Procedi nel modo seguente:
1. Seleziona la riga che desideri copiare e inserire più volte, quindi premi contemporaneamente i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Fai clic su Inserisci > Modulo, quindi incolla il codice seguente nella finestra del Modulo.
Codice VBA: Duplica una riga specifica più volte:
Sub test()
'Updateby Extendoffice
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
ActiveCell.EntireRow.Copy
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub
3. Dopo aver incollato il codice, premi il tasto F5 per eseguirlo. Comparirà una finestra di dialogo in cui dovrai inserire il numero di volte in cui desideri duplicare la riga, come mostrato nello screenshot:
4. Fai quindi clic sul pulsante OK e tre nuove righe copiate verranno inserite sotto quella selezionata, come mostrato nello screenshot:
Copia e inserisci ogni riga più volte in base a un numero specifico, facilmente
Normalmente, non esiste un metodo efficace per copiare e inserire righe più volte, a meno di non farlo manualmente. Tuttavia, grazie alla funzionalità Kutools per Excel – Copia o Inserisci Righe/Colonne in Base ai Dati Specificati – puoi risolvere questo problema in modo semplice e veloce.Clicca per scaricare Kutools per Excel!
Kutools per Excel: con oltre 300 utili componenti aggiuntivi per Excel, prova gratuita senza limitazioni per 60 giorni.Scarica e prova gratuitamente ora!
Copia e inserisci ogni riga più volte con codice VBA
Per duplicare ogni riga più volte all’interno di un intervallo, puoi utilizzare il seguente codice VBA. Segui questi passaggi:
1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2Fai clic su Inserisci>Modulo, quindi incolla il codice seguente nella finestra del Modulo.
Codice VBA: Duplica ogni riga più volte:
Sub insertrows()
'Updateby Extendoffice
Dim I As Long
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error ,please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Rows(I).Copy
Rows(I).Resize(xCount).Insert
Next
Application.CutCopyMode = False
End Sub3. Premi quindi il tasto F5 per eseguire il codice. Comparirà una finestra di dialogo in cui dovrai inserire il numero di volte in cui desideri duplicare ciascun record, come mostrato nello screenshot:
4. Fai quindi clic sul pulsante OK e ogni riga verrà copiata e inserita tre volte sotto quella attiva, come mostrato nello screenshot:
| | |
Nota: Nel codice riportato sopra, la lettera A indica che i dati iniziano dalla colonna A. Se i tuoi dati partono dalla colonna K, sostituisci A con K in base alle tue esigenze.
Copia e inserisci ogni riga più volte in base a un numero specifico con una funzionalità eccezionale
Forse non sei familiare con il codice VBA o temi che possa compromettere i tuoi dati. In tal caso, ti presentiamo una funzionalità davvero utile: lo strumento Kutools per Excel denominato Copia o Inserisci Righe/Colonne in Base ai Dati Specificati. Grazie a questa funzione, potrai copiare e inserire rapidamente le righe in base al numero indicato.
Suggerimenti:Per utilizzare questa funzionalità Copia o Inserisci Righe/Colonne in Base ai Dati Specificati, devi innanzitutto scaricare Kutools per Excel, quindi potrai applicare la funzione rapidamente e facilmente.
Dopo aver installato Kutools per Excel, procedi come segue:
1. Inserisci il numero di ripetizioni desiderato per ogni riga da duplicare in una colonna accanto ai tuoi dati, come mostrato nello screenshot:
2. Fai clic su Kutools > Inserisci > Copia o Inserisci Righe/Colonne in Base ai Dati Specificati, come mostrato nello screenshot:
3. Nella finestra di dialogo Copia e Inserisci Righe/Colonne, seleziona l’opzione Copia e Inserisci Righe nella sezione Tipo, quindi scegli i dati da duplicare e indica il numero di ripetizioni per le righe, come mostrato nello screenshot:
4. Fai quindi clic sui pulsanti Ok o Applica e otterrai il risultato desiderato:
| |  |
Clicca per scaricare Kutools per Excel e provalo gratuitamente ora!
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi