Como repetir linhas um número especificado de vezes com base em outra coluna do Excel?
Você já tentou repetir uma linha com base em outro valor de coluna, como mostrado na imagem abaixo? Neste artigo, apresentarei o método de resolução desse trabalho no Excel.
Repita as linhas com base em outro valor de coluna com VBA
Repita linhas com base em outro valor de coluna do Kutools para Excel
Repita linhas com tempo fixo pelo Kutools para Excel
Repita as linhas com base em outro valor de coluna com VBA
Aqui eu tenho um código que pode repetir rapidamente as linhas com base nos valores da última coluna.
1. Pressione Alt + F11 chaves para habilitar Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Módulo, copie o código abaixo e cole-o no novo Módulo script.
VBA: Repita linhas com base em outro valor de 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. Pressione F5 , uma caixa de diálogo aparecerá, selecione a lista de números na qual as linhas serão repetidas com base.
4. Clique em OK, as linhas foram repetidas com base no valor da coluna selecionada.
Repita linhas com base em outro valor de coluna do Kutools para Excel
Se você não é bom no uso de VBA, pode tentar Kutools for Excel'S Duplicar linhas / colunas com base no valor da célula recurso, que só precisa de duas etapas.
| Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. |
1. Clique Kutools > inserção > Duplicar linhas / colunas com base no valor da célula.
2. Na caixa de diálogo pop-up, escolha Copiar e inserir linhas opção no Formato seção e, em seguida, escolha o intervalo para o qual deseja repetir Inserir toquee caixa de texto, e escolha a coluna que decide os tempos de repetição para o Repetições caixa de texto. Clique Ok.
Em seguida, as linhas serão repetidas pela coluna selecionada.
Repita linhas com tempo fixo pelo Kutools para Excel
Se você deseja repetir as linhas com um tempo fixo sem inserir linhas uma a uma, você pode tentar usar o Inserir linhas e colunas em branco e Preencher células em branco utilitários de Kutools for Excel para lidar rapidamente com este trabalho.
Depois de instalar Kutools para Excel, faça o seguinte:（Baixe gratuitamente o Kutools para Excel agora!)
1. Selecione o intervalo de dados que deseja repetir as linhas e clique em Kutools > inserção > Inserir linhas e colunas em branco. Então no Inserir linhas e colunas em branco diálogo, verificar Linhas em branco opção, então digite 1 para dentro Intervalo of caixa de texto e digite o número em que deseja repetir as linhas Linhas caixa de texto.
2. Clique Ok, as linhas em branco foram inseridas abaixo de cada linha.
3. Mantenha o intervalo selecionado, clique Kutools > inserção > Preencher células em branco. No Preencher células em branco diálogo, verificar Com base em valores e Para baixo opções.
4. Clique Ok. Agora as células em branco foram preenchidas com o valor acima.
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!
