Como inserir automaticamente uma linha com base no valor da célula no Excel?
Inserir linha abaixo com base no valor da célula com VBA
Inserir linha acima com base no valor da célula com Kutools para Excel
Inserir linha abaixo com base no valor da célula com VBA
Para inserir uma linha com base no valor da célula executando o VBA, siga os passos abaixo:
1. Pressione simultaneamente as teclas Alt + F11, e uma janela do Microsoft Visual Basic for Applications será aberta.
2. Clique em Inserir > Módulo, depois cole o código VBA abaixo na janela Módulo que aparece.
VBA: Inserir linha abaixo com base no valor da célula.
Sub BlankLine()
'Updateby20150203
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step - 1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "0" Then
Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
3. Clique F5 ou no botão Executar Um diálogo aparecerá, selecione a coluna que contém o valor zero. Veja a captura de tela:
4. Clique OK. Em seguida, linhas em branco serão inseridas abaixo do valor zero.
Dica:
1. Se você quiser inserir linhas com base em outro valor, pode alterar 0 para qualquer valor desejado no VBA: If Rng.Value = "0" Then.
2. Se você quiser inserir linhas acima de zero ou outro valor, pode usar o seguinte código vba.
VBA: Inserir linha acima do valor zero:
Sub BlankLine()
'Updateby20150203
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step - 1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "0" Then
Rng.EntireRow.Insert Shift: = xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
Inserir linha acima com base no valor da célula com Kutools para Excel
Se você não está familiarizado com o VBA, pode experimentar o utilitário Selecionar Células Específicas do Kutools para Excel e, em seguida, inserir linhas acima.
Após instalar o Kutools para Excel, siga os passos abaixo:
1. Selecione a lista onde deseja encontrar as células específicas e clique Kutools > Selecionar > Selecionar Células Específicas. Veja a captura de tela:
2. Na caixa de diálogo que aparece, marque a opção Linha Inteira opção, e depois vá para selecionar Igual a em Especificar tipo lista, e insira o valor que deseja encontrar na caixa de texto à direita. Veja a captura de tela:
3. Clique Ok, e um diálogo aparecerá para informar o número de linhas selecionadas, apenas feche-o.
4. Coloque o cursor em uma das linhas selecionadas, clique com o botão direito e selecione Inserir no menu de contexto. Veja a captura de tela:
Agora as linhas são inseridas acima com base em um valor específico.
Inserir Linhas Acima Com Base no Valor da Célula
Artigos Relacionados:
Melhores Ferramentas de Produtividade para Office
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.
- 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