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 para 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 o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para 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 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!
