Come copiare e inserire la riga più volte o duplicare la riga x volte in Excel?

Nel tuo lavoro quotidiano, hai mai provato a copiare una riga o ogni riga e quindi inserire più volte sotto la riga di dati corrente in un foglio di lavoro? Ad esempio, ho un intervallo di celle, ora, voglio copiare ogni riga e incollarle 3 volte nella riga successiva come mostrato nella seguente schermata. Come hai potuto affrontare questo lavoro in Excel?

• Copia e inserisci una riga specifica più volte con il codice VBA
• Copia e inserisci ogni riga più volte con il codice VBA
• Copia e inserisci ogni riga più volte in base a un numero specifico con una funzionalità fantastica

Copia e inserisci una riga specifica più volte con il codice VBA

Se vuoi duplicare solo una riga specifica x volte, il seguente codice VBA può aiutarti, per favore fai come segue:

1. Specificare una riga che si desidera copiare e inserire più volte, quindi tenere premuto il tasto ALT + F11 chiavi, quindi apre il file Microsoft Visual Basic, Applications Edition finestra.

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

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, premere F5 chiave per eseguire questo codice e viene visualizzata una finestra di messaggio per ricordarti di inserire il numero di volte che desideri duplicare, vedi screenshot:

4. Quindi fare clic OK pulsante e tre nuove righe copiate sono state inserite sotto la riga selezionata, vedi screenshot:

Copia e inserisci ogni riga più volte con il codice VBA

Per duplicare ogni riga più volte in un intervallo, puoi applicare il seguente codice VBA, per favore fai come di seguito:

1. Tieni premuto il ALT + F11 chiavi, quindi apre il file Microsoft Visual Basic, Applications Edition finestra.

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

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 Sub

3. E poi premere F5 chiave per eseguire questo codice e viene visualizzata una finestra di messaggio per ricordarti di inserire il numero di volte che desideri duplicare per ogni record, vedi screenshot:

4. Quindi fare clic OK, e ogni riga è stata copiata e inserita 3 volte sotto quelle attive, vedi screenshot:

Copia e inserisci ogni riga più volte in base a un numero specifico con una funzionalità fantastica

Forse non hai familiarità con il codice VBA o ti preoccupi che il codice causi l'arresto anomalo dei tuoi dati. Qui introdurrò una funzione utile, Kutools for Excel's Righe / colonne duplicate in base al valore della cella, con questa utility, puoi copiare e inserire rapidamente le righe in base al numero specificato.

Dopo l'installazione Kutools for Excel, per favore fai come questo:

1. Inserisci i numeri di ripetizione che desideri duplicare le righe in un elenco di celle accanto ai tuoi dati, vedi screenshot:

2. Clic Kutools > inserire > Righe / colonne duplicate in base al valore della cella, vedi screenshot:

3. Nel Copia e inserisci righe e colonne finestra di dialogo, selezionare Copia e inserisci righe opzione nel Tipologia sezione, quindi seleziona l'intervallo di dati che desideri duplicare, quindi specifica il tempo di ripetizione per duplicare le righe, vedi screenshot:

4. Quindi, fare clic Ok or APPLICA pulsante, otterrai il seguente risultato di cui hai bisogno:

Fai clic per scaricare Kutools per Excel e prova gratuita ora!

---

I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

• Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
• Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
• Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
• Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
• Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
• Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
• Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
• Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
• Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.

Leggi di più... Download gratuito... Acquista... 

---

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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!

Leggi di più... Download gratuito... Acquista...