Como inserir uma linha automaticamente com base no valor da célula no Excel?
Insira a linha abaixo com base no valor da célula com VBA
Insira a linha acima com base no valor da célula com o Kutools para Excel
Insira a 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 as etapas abaixo:
1. Pressione Alt + F11 teclas simultaneamente, e um Microsoft Visual Basic para Aplicações janela pula para fora.
2. Clique inserção > Móduloe cole abaixo o código VBA no popping Módulo janela.
VBA: insira a 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 chave ou o Execute , uma caixa de diálogo é exibida e selecione a coluna que contém zero. Veja a imagem:
4. Clique OK. Então, linhas em branco serão inseridas abaixo do valor zero.
Dica:
1. Se você deseja inserir linhas com base em outro valor, você pode alterar 0 a qualquer valor que você deseja no VBA: Se Rng.Value = "0" então.
2. Se você deseja inserir linhas acima de zero ou outro valor, você pode usar o código vba abaixo.
VBA: Insira a 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
Insira a linha acima com base no valor da célula com o Kutools para Excel
Se você não está familiarizado com o VBA, pode tentar Kutools for Excel's Selecione células específicas utilitário e insira as linhas acima.
Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. | ||
Depois de instalar Kutools para Excel, faça o seguinte:(Baixe gratuitamente o Kutools para Excel agora!)
1. Selecione a lista da qual deseja descobrir as células específicas e clique em Kutools > Selecionar > Selecione células específicas. Veja a imagem:
2. Na caixa de diálogo pop-up, verifique Linha inteira opção e, em seguida, vá para selecionar É igual a da Tipo específico lista e insira o valor que deseja encontrar na caixa de texto correta. Veja a imagem:
3. Clique Ok, e uma caixa de diálogo aparecerá para lembrá-lo do número de linhas selecionadas, basta fechá-la.
4. Coloque o cursor em uma linha selecionada e clique com o botão direito para selecionar inserção no menu de contexto. Veja a imagem:
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 relativos:
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!