Como duplicar linhas com base no valor da célula em uma coluna?
Por exemplo, tenho um intervalo de dados que contém uma lista de números na coluna D e, agora, quero duplicar as linhas inteiras várias vezes com base nos valores numéricos da coluna D para obter o seguinte resultado. Como posso copiar as linhas várias vezes com base nos valores das células no Excel?
 |
 |
 |
Duplique as linhas várias vezes com base nos valores das células com código VBA
Duplique as linhas várias vezes com base nos valores das células com código VBA
Para copiar e duplicar as linhas inteiras várias vezes com base nos valores das células, o seguinte código VBA pode ajudá-lo, faça o seguinte:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: linhas duplicadas várias vezes com base no valor da célula:
Sub CopyData()
'Updateby Extendoffice
Dim xRow As Long
Dim VInSertNum As Variant
xRow = 1
Application.ScreenUpdating = False
Do While (Cells(xRow, "A") <> "")
VInSertNum = Cells(xRow, "D")
If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
Selection.Insert Shift:=xlDown
xRow = xRow + VInSertNum - 1
End If
xRow = xRow + 1
Loop
Application.ScreenUpdating = False
End Sub
3. Então aperte F5 chave para executar este código, todas as linhas foram duplicadas várias vezes com base no valor da célula na coluna D conforme necessário.
Copie e insira linhas com base em um número especificado de vezes com uma ferramenta útil - Kutools for Excel
Se você não estiver familiarizado com o código VBA e não conseguir alterar os parâmetros do código corretamente sozinho. Neste caso, o Kutools for Excel's Duplicar linhas/colunas com base no valor da célula O recurso pode ajudá-lo a copiar e inserir linhas várias vezes com base nos valores das células com apenas três cliques.
- Clique Kutools > inserção > Duplicar linhas / colunas com base no valor da célula para habilitar esse recurso;
- Então escolha Copiar e inserir linhas opção e especifique as células do Faixa de inserção e Repetições separadamente na caixa de diálogo.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com Kutools for Excele experimente eficiência como nunca antes. Kutools for Excel Oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab Traz a interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
