Como repetir linhas um número específico de vezes com base nos valores de outra coluna no Excel?
Já alguma vez precisou de repetir uma linha com base no valor de outra coluna, como mostra a imagem abaixo? Neste artigo, mostro-lhe como resolver esta tarefa no Excel.
Repetir linhas com base no valor de outra coluna com VBA
Repetir linhas com base no valor de outra coluna com Kutools para Excel
Repetir linhas com base no valor de outra coluna com VBA
Aqui está um código que permite repetir rapidamente as linhas com base nos valores da última coluna.
1. Prima Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo, copie o código abaixo e cole-o no novo script do Módulo.
VBA: Repetir linhas com base no valor de outra coluna
Sub CopyRow()
'UpdatebyExtendoffice20181011
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the number value", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub
3. Prima a tecla F5 e surge uma caixa de diálogo; selecione a lista numérica com base na qual as linhas serão repetidas.
4. Clique em OK e as linhas serão repetidas de acordo com o valor da coluna selecionada.
Repetir linhas com base no valor de outra coluna com Kutools para Excel
Se não se sentir à vontade com o uso de VBA, experimente a funcionalidade Kutools para Excel’s Linha duplicada/Colunas com Base no Valor da Célula, que exige apenas dois passos.
1. Clique em Kutools > Inserir > Linha duplicada/Colunas com Base no Valor da Célula.
2. Na caixa de diálogo que surge, escolha a opção Copiar e Inserir Linhas na secção Tipo, selecione o intervalo que pretende repetir na caixa de texto Intervalo a Inserir e indique a coluna que determina o número de repetições na caixa de texto Número de Repetições. Clique em Ok.
As linhas serão então repetidas conforme a coluna selecionada.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos