Ir para o conteúdo principal

Como inserir linhas em branco quando o valor muda no Excel?

Supondo que você tenha um intervalo de dados e agora queira inserir linhas em branco entre os dados quando o valor mudar, para que possa separar os mesmos valores sequenciais em uma coluna, conforme as capturas de tela a seguir mostradas. Neste artigo, falarei sobre alguns truques para você resolver esse problema.

Insira linhas em branco quando o valor mudar com a função Subtotal

Insira linhas em branco quando o valor mudar com as colunas auxiliares

Insira linhas em branco quando o valor mudar com o código VBA

Insira um número específico de linhas em branco quando o valor muda com um recurso poderoso


Insira linhas em branco quando o valor mudar com a função Subtotal

Com o Valor recurso, você pode inserir linhas em branco entre os dados quando o valor muda conforme as seguintes etapas:

1. Selecione o intervalo de dados que você deseja usar.

2. Clique Data > Valor para abrir o Valor caixa de diálogo, e na Valor caixa de diálogo, faça as seguintes opções:

1: Selecione o nome da coluna na qual deseja inserir linhas em branco com base em quando o valor muda em A cada mudança na seção;
2: Escolha Contar do Use a função lista suspensa;
3: Marque o nome da coluna na qual deseja inserir o subtotal no Adicionar subtotal a caixa de lista

3. Então clique OK, as linhas de subtotal foram inseridas entre os diferentes produtos e os símbolos de contorno são exibidos à esquerda da tabela, consulte a captura de tela:

4. Em seguida, clique no número 2 na parte superior do símbolo de contorno para exibir apenas as linhas do subtotal.

5. Em seguida, selecione os dados do intervalo subtotal e pressione Alt +; teclas de atalho para selecionar apenas as linhas visíveis, consulte a captura de tela:

6. Depois de selecionar as linhas visíveis, pressione o botão Apagar no teclado, e todas as linhas de subtotal foram removidas.

7. Em seguida, clique em qualquer outra célula e volte Data > Desagrupar > Contorno claro para remover os contornos, veja a captura de tela:

8. Os símbolos de contorno foram limpos de uma vez, e você pode ver que linhas em branco foram inseridas entre os dados quando o valor muda, veja a captura de tela:

9. Por fim, você pode excluir a coluna A conforme necessário.


Insira quebra de página, linhas em branco, borda inferior ou cor de preenchimento quando o valor mudar rapidamente

Se você tem Kutools for Excel's Distinguir diferenças recurso, você pode inserir rapidamente quebra de página, linhas em branco, borda inferior ou cor de preenchimento quando o valor muda conforme necessário. Veja a demonstração abaixo.         Clique para baixar o Kutools para Excel!


Insira linhas em branco quando o valor mudar com as colunas auxiliares

Com as colunas auxiliares, você pode inserir a fórmula primeiro e depois aplicar o Localizar e substituir função, por último, insira as linhas em branco entre os valores de alteração. Faça o seguinte:

1. Em uma célula em branco C3, insira esta fórmula = A3 = A2, e na célula D4 insira esta fórmula = A4 = A3, veja a captura de tela:

2. Em seguida, selecione C3: D4 e arraste a alça de preenchimento até o intervalo em que deseja aplicar essas fórmulas e você obterá Verdadeiro or Falso nas células, veja a captura de tela:

3. E, em seguida, pressione Ctrl + F chaves para abrir o Localizar e substituir caixa de diálogo, na caixa de diálogo aberta, digite FALSE no Encontre o que caixa de texto sob Encontre guia e clique em Opções botão para expandir esta caixa de diálogo e escolha Valores do Olhar dentro lista suspensa, veja a captura de tela:

4. Clique Encontrar tudo botão e, em seguida, pressione Ctrl + A para selecionar todos os resultados da descoberta, todas as células FALSAS foram selecionadas de uma vez, veja a captura de tela:

6. Feche o Localizar e substituir caixa de diálogo, próxima etapa, você pode inserir linhas em branco clicando em Home page > inserção > Inserir linhas de folha, e linhas em branco foram inseridas nos dados quando o valor muda com base na coluna A, consulte as capturas de tela:

7. Finalmente, você pode excluir a coluna auxiliar C e D conforme necessário.


Insira linhas em branco quando o valor mudar com o código VBA

Se você está cansado de usar os métodos acima, aqui está um código que também pode ajudá-lo a inserir linhas em branco entre os valores alterados de uma vez.

1. Segure o ALT + F11 chaves para abrir o Janela Microsoft Visual Basic for Applications.

2. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.

Código VBA: insira linhas em branco quando o valor mudar

Sub InsertRowsAtValueChange()
'Update by Extendoffice
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)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 2 Step -1
    If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Then
        WorkRng.Cells(i, 1).EntireRow.Insert
    End If
Next
Application.ScreenUpdating = True
End Sub

3. Então aperte F5 para executar este código, e uma caixa de prompt aparecerá para permitir que você selecione os dados de uma coluna que deseja inserir linhas em branco quando o valor muda em que você se baseou, consulte a captura de tela:

4. E, em seguida, clique em OK, as linhas em branco foram inseridas entre os dados quando o valor muda com base na coluna A.


Insira um número específico de linhas em branco quando o valor muda com um recurso poderoso

Se você experimentar os métodos problemáticos acima, apresentarei aqui uma ferramenta útil, Kutools for Excel's Distinguir diferenças pode ajudá-lo a inserir quebra de página, linhas em branco, borda inferior ou cor de preenchimento quando o valor da célula muda de forma rápida e fácil.

Dicas:Para aplicar isso Distinguir diferenças recurso, em primeiro lugar, você deve baixar o Kutools for Excele, em seguida, aplique o recurso de forma rápida e fácil.

Depois de instalar Kutools for Excel, por favor, faça o seguinte:

1. Clique Kutools > Formato > Distinguir diferenças, veja a captura de tela:

2. No Distinguir diferenças por coluna-chave caixa de diálogo, execute as seguintes operações:

  • Selecione o intervalo de dados que deseja usar e, em seguida, escolha a coluna-chave na qual deseja inserir linhas em branco;
  • Então verifique Linha em branco opção do Opções seção e insira o número de linhas em branco que deseja inserir.

3. Então clique Ok botão, e o número específico de linhas em branco foram inseridos nos dados se o valor da célula mudar, consulte as capturas de tela:

Clique para baixar o Kutools para Excel e testar gratuitamente agora!

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

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...

Descrição


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!
Comments (16)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, Hassan,

This vba is amazing, whereas I need one more alternate code for insert single blank row after changes in sequencing numbers. Example:- In column having number series like 1, 2, 3, 5, 6, 9 & etc...
Need to add single blank row between 3 & 5 as well as 6 & 9.
Please can you with this.
This comment was minimized by the moderator on the site
Can the VBA method be adapted to ignore blank cells? I have a file which I need to insert rows in based on two different columns but when I run the macro on the second column I end up with three blank lines where the first macro run inserted rows.
Or can it run on two columns at the same time?
This comment was minimized by the moderator on the site
Hello,
Is very usefull in case i need to insert 1 row, but if i need to insert 145 rows in every time the data change in spwcific column, how can i do it??
This comment was minimized by the moderator on the site
Hi, Hassan,
To insert multiple blank rows when value changes in a specific column, you should apply the following VBA code:

Note: In the below code, you should change the number 99 to your need, for example, when you insert 145 blank rows, you should change the number 99 to 144. Please try it, hope it can help you!

Sub InsertRowsAtValueChange()
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)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 2 Step -1
If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Then
Range(WorkRng.Cells(i, 1).EntireRow, WorkRng.Cells(i + 99, 1).EntireRow).Insert
End If
Next
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
Very helpful. The code that skyyang shows above worked perfectly. Just make sure that the data doesn't already have spaces in it.

I don't understand VBA, but I believe if you wanted to add more rows underneath data that already had the spacing, there should be a way to ignore spaces.

Could a line be added to ignore or skip over blank lines? That might make this code more universal and repeatable if needed. Also a delete function that is similar to this may be useful so undo isn't necessary.
This comment was minimized by the moderator on the site
RE: insert blank rows when value changes with vba code
Is there a way that I can save the Range & not have to pick it every time I run it?
This comment was minimized by the moderator on the site
The VBA code worked 1st time and did exactly what I was trying to do. Thank you so much!
This comment was minimized by the moderator on the site
I've been using my own solution for some time.
1. Insert a helper column into Column A
2. In A2, type "if(B2=B1,A1,A1+1)"
3. Copy that formula down to the last row
4. Copy all the populated cells in column A and Paste Special (Values) over them
5. Copy all the cells again and paste them into column A in the first unpopulated cell (e.g. if you have 104 rows of data plus a header row you would paste into cell A106)
6. Click on Data and Remove Duplicates (only on the cells you just pasted in Step 5; not on all rows)
7. Sort all of Column A
8. Delete Column A

Seems like a lot of steps but only takes a few seconds.
This comment was minimized by the moderator on the site
[quote]Hi all thank you!! its awesome , can you guys also let me how to insert 2 rows when the value changes in VBA or through excel.By Hudson[/quote] Please let me know how to insert more than 1 row.
This comment was minimized by the moderator on the site
Hi there, These are almost useful! The first method doesn't work for me because when I follow the steps explicitly, the the data that I delete in the subtotal panes deletes the entire columns that I've sorted. In the second method when I get to the step where I insert sheet rows, the rows are inserted ABOVE the FALSE cells which breaks up the data, but the last selection of every group is then added to the group below. Any advice???
This comment was minimized by the moderator on the site
Hi all thank you!! its awesome , can you guys also let me how to insert 2 rows when the value changes in VBA or through excel.
This comment was minimized by the moderator on the site
Where in the code would I need to modify to include more than one row, I need to add 10 after each break... Thanks
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations