Como inserir automaticamente uma linha com base no valor da célula no Excel?

Suponha que você tenha um intervalo de dados e deseja inserir automaticamente linhas em branco acima ou abaixo de um determinado valor no Excel, por exemplo, inserir automaticamente linhas abaixo do valor zero, conforme mostrado na captura de tela abaixo. No Excel, não há uma maneira direta de resolver essa tarefa, mas posso apresentar um código de Macro para inserir automaticamente linhas com base em um determinado valor 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:

• Inserir linhas em branco no Excel