Como copiar e inserir uma linha várias vezes ou duplicar a linha x vezes no Excel?

No seu trabalho diário, você já tentou copiar uma linha ou cada linha e depois inserir várias vezes abaixo da linha de dados atual em uma planilha? Por exemplo, tenho um intervalo de células, agora quero copiar cada linha e colá-las 3 vezes na próxima linha, conforme mostrado na captura de tela a seguir. Como você lidaria com essa tarefa no Excel?

• Copiar e inserir uma linha específica várias vezes com código VBA
• Copiar e inserir cada linha várias vezes com código VBA
• Copiar e inserir cada linha várias vezes com base em um número específico com um recurso incrível

Copiar e inserir uma linha específica várias vezes com código VBA

Se você deseja duplicar apenas uma linha específica x vezes, o seguinte código VBA pode ajudá-lo, por favor, faça o seguinte:

1. Especifique uma linha que deseja copiar e inserir várias vezes e, em seguida, pressione as teclas ALT + F11, isso abrirá a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Duplicar uma linha específica várias vezes:

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. Após colar o código, pressione a tecla F5 para executar este código, e uma caixa de aviso aparecerá para lembrá-lo de inserir o número de vezes que deseja duplicar, veja a captura de tela:

4. Em seguida, clique no botão OK, e três novas linhas copiadas foram inseridas abaixo da linha selecionada, veja a captura de tela:

Copiar e inserir cada linha várias vezes com código VBA

Para duplicar cada linha várias vezes em um intervalo, você pode aplicar o seguinte código VBA, por favor, faça como abaixo:

1. Pressione as teclas ALT + F11, isso abrirá a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Duplicar cada linha várias vezes:

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 então pressione a tecla F5 para executar este código, e uma caixa de aviso aparecerá para lembrá-lo de inserir o número de vezes que deseja duplicar para cada registro, veja a captura de tela:

4. Em seguida, clique em OK, e cada linha foi copiada e inserida 3 vezes abaixo das ativas, veja a captura de tela:

Copiar e inserir cada linha várias vezes com base em um número específico com um recurso incrível

Talvez, você não esteja familiarizado com o código VBA, ou se preocupe que o código possa corromper seus dados. Aqui, vou apresentar um recurso útil, Kutools para Excel Copiar ou Inserir Linhas/Colunas de Acordo com Dados Especificados, com esta ferramenta, você pode copiar e inserir rapidamente as linhas com base no número especificado.

Após instalar o Kutools para Excel, por favor, faça o seguinte:

1. Insira os números de repetição que deseja duplicar nas linhas em uma lista de células ao lado dos seus dados, veja a captura de tela:

2. Clique em Kutools > Inserir > Copiar ou Inserir Linhas/Colunas de Acordo com Dados Especificados, veja a captura de tela:

3. Na caixa de diálogo Copiar e inserir linhas & colunas, selecione a opção Copiar e inserir linhas na seção Tipo, depois selecione o intervalo de dados que deseja duplicar e especifique o tempo de repetição para duplicar as linhas, veja a captura de tela:

4. Depois, clique no botão Ok ou Aplicar, você obterá o seguinte resultado conforme necessário:

Clique para baixar Kutools para Excel e experimente grátis agora!