Come copiare e inserire una 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 poi inserirla 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 nello screenshot seguente. Come potresti gestire questo compito 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 potrebbe aiutarti, procedi come segue:

1. Specifica una riga che desideri copiare e inserire più volte, quindi tieni premuti i tasti ALT + F11, quindi si aprirà la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla il seguente codice 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 eseguire questo codice, e apparirà una finestra di dialogo che ti chiederà di inserire il numero di volte che desideri duplicare, vedi screenshot:

4. Quindi clicca sul pulsante OK, 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, procedi come segue:

1. Tieni premuti i tasti ALT + F11, quindi si aprirà la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla il seguente codice 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 Sub

3. E poi premi il tasto F5 per eseguire questo codice, e apparirà una finestra di dialogo che ti chiederà di inserire il numero di volte che desideri duplicare per ogni record, vedi screenshot:

4. Quindi clicca su 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 sei familiare con il codice VBA, o temi che il codice possa danneggiare i tuoi dati. Qui, ti presenterò una funzione utile, Duplica Righe/Colonne basata sul valore della cella di Kutools per Excel, con questa utility, puoi copiare e inserire rapidamente le righe in base al numero specificato.

Dopo aver installato Kutools per Excel, procedi come segue:

1. Inserisci i numeri di ripetizione che desideri duplicare in una lista di celle accanto ai tuoi dati, vedi screenshot:

2. Clicca su Kutools > Inserisci > Duplica Righe/Colonne basata sul valore della cella, vedi screenshot:

3. Nella finestra di dialogo Copia e inserisci righe e colonne, seleziona l'opzione Copia e inserisci righe nella sezione Tipo, quindi seleziona l'intervallo di dati che desideri duplicare, e poi specifica il tempo di ripetizione per duplicare le righe, vedi screenshot:

4. Quindi, clicca su Ok o Applica, otterrai il seguente risultato di cui hai bisogno:

Clicca per scaricare Kutools per Excel e prova gratis adesso!