Como inserir automaticamente uma linha no Excel com base no valor de uma célula?
Inserir linha abaixo com base no valor de uma célula com VBA
Inserir linha acima com base no valor de uma célula com Kutools para Excel
Inserir linha abaixo com base no valor de uma célula com VBA
Para inserir uma linha com base no valor de uma célula executando VBA, siga os passos abaixo:
1. Prima Alt + F11 em simultâneo e abrirá uma janela do Microsoft Visual Basic para Aplicações.
2. Clique em Inserir > Módulo e, de seguida, cole o código VBA seguinte na janela do Módulo que surge.
VBA: Inserir uma linha abaixo com base no valor de uma 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 na tecla F5 ou no botão Executar. Surge uma caixa de diálogo; selecione a coluna que contém zeros. Veja a imagem:
4. Clique em OK. Em seguida, as linhas em branco serão inseridas abaixo do valor zero.
Dica:
1. Se pretender inserir linhas com base noutro valor, basta alterar 0 para o valor pretendido no VBA: If Rng.Value = "0" Then.
2. Se pretender inserir linhas acima de zero ou de outro valor, pode utilizar 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 de uma célula com Kutools para Excel
Se não estiver familiarizado com VBA, experimente a funcionalidade Kutools para Excel — Selecionar células específicas — e, em seguida, insira linhas acima.
Após instalar o Kutools para Excel, siga os passos abaixo:
1. Selecione a lista na qual pretende identificar as células específicas e clique em Kutools > Selecionar > Selecionar células específicas. Veja a imagem:
2. Na caixa de diálogo que surge, ative a opção Linha inteira, depois selecione Igual na lista Especificar tipo e introduza o valor que pretende localizar na caixa à direita. Veja a imagem:
3. Clique em Ok e surge uma caixa de diálogo a indicar o número de linhas selecionadas; basta fechá-la.
4. Posicione o cursor numa das linhas selecionadas, clique com o botão direito e selecione Inserir no menu de contexto. Veja a imagem:
Agora, as linhas foram inseridas acima com base num valor específico.
Inserir linhas Acima Com Base no Valor da Célula
Artigos Relacionados:
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