Skip to main content

Kutools para Office — Uma Suíte. Cinco Ferramentas. Aumente sua Produtividade.

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

Author Xiaoyang Last modified

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?

original data arrow right copy and insert row multiple times

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:

enter the number of times want to duplicate

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:

the specific number of new copied rows are inserted below the selected row

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

Normalmente, não há um bom método para copiar e inserir linhas várias vezes, exceto fazendo manualmente cópia e inserção. No entanto, com o Kutools para Excel e sua função Copiar ou Inserir Linhas/Colunas de Acordo com Dados Especificados, você pode resolver esse problema com facilidade. Clique para baixar Kutools para Excel!

Kutools para Excel: com mais de 300 complementos úteis para o Excel, grátis para experimentar sem limitação por 60 dias. Baixe e experimente grátis agora!

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:

enter the number of times want to duplicate for each record

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

original data arrow right each row is copied and inserted specific number of times

Observação: No código acima, o A indica que o intervalo de dados começa na coluna A, se seus dados começarem na coluna K, altere A para K conforme necessário.

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.

Kutools para Excel oferece mais de 300 recursos avançados para simplificar tarefas complexas, aumentando a criatividade e a eficiência. Integrado com capacidades de IA, o Kutools automatiza tarefas com precisão, tornando a gestão de dados fácil e eficiente. Mais informações sobre o Kutools para Excel...  Teste gratuito...

Dicas:Para aplicar este recurso Copiar ou Inserir Linhas/Colunas de Acordo com Dados Especificados, primeiro, você deve baixar o Kutools para Excel e, em seguida, aplicar o recurso rapidamente e facilmente.

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:

Enter the repeat numbers to duplicate rows in a list of cells beside the data

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

click Duplicate Rows / Columns based on cell value feature of kutools

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:

specify options in the dialog box

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

original data arrow right rows are repeated by the specific number

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

Melhores Ferramentas de Produtividade para Office

🤖 Kutools AI Aide: Revolucione a análise de dados com: Execução Inteligente   |  Gerar Código  |  Criar Fórmulas Personalizadas  |  Analisar Dados e Gerar Gráficos  |  Chamar Funções Aprimoradas…
Recursos Populares: Localizar, Destacar ou Marcar Duplicatas   |  Excluir Linhas em Branco   |  Consolidar Colunas ou Células sem Perder Dados   |   Arredondar...
Super PROC: Procura por múltiplos critérios  |   Procura por múltiplos valores  |   Procura em várias planilhas   |   Correspondência Fuzzy...
Lista Suspensa Avançada: Crie rapidamente Lista suspensa  |  Lista suspensa dependente  |  Lista suspensa com múltipla seleção ...
Gerenciador de Colunas: Adicionar número específico de colunas  | Mover Colunas  | Alternar status de visibilidade de Colunas ocultas |  Comparar Intervalos & Colunas...
Recursos em Destaque: Grade de foco   |  Visualização de Design  |  Barra de fórmulas aprimorada   |  Gerenciador de Pasta de trabalho & Planilha   |  Biblioteca de AutoTexto (Auto Text)   |  Selecionador de Data   |  Mesclar Dados   |  Criptografar/Descriptografar Células   |  Enviar Email por Lista   |  Super Filtro   |   Filtro Especial (filtrar negrito/itálico/tachado...) ...
Os 15 Principais Conjuntos de Ferramentas: 12 Ferramentas de Texto (Adicionar Texto, Excluir Caracteres Específicos, ...)  | 50+ Tipos de Gráficos (Gráfico de Gantt, ...)  | 40+ Fórmulas Práticas (Calcular a idade com base na data de nascimento, ...)  | 19 Ferramentas de Inserção (Inserir Código QR, Inserir Imagem pelo Caminho, ...)  | 12 Ferramentas de Conversão (Converter em Palavras, Conversão de Moeda, ...)  | 7 Ferramentas de Mesclar & Dividir (Mesclar Linhas Avançado, Dividir Células, ...) | ...e muito mais
Use o Kutools no idioma de sua preferência – compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 idiomas!

Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para acessar o recurso que você mais precisa...

Office Tab traz interface com abas para o Office e facilita muito seu trabalho

  • Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
  • Aumente sua produtividade em50% e economize centenas de cliques todos os dias!

Todos os complementos Kutools. Um instalador

O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.

Excel Word Outlook Tabs PowerPoint
  • Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
  • Um instalador, uma licença — configuração em minutos (pronto para MSI)
  • Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
  • Avaliação completa por30 dias — sem registro e sem cartão de crédito
  • Melhor custo-benefício — economize comparado à compra individual de add-ins