Note: The other languages of the website are Google-translated. Back to English

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 Dados > 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 de 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 Dados > 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 Procure guia e clique em Opções botão para expandir esta caixa de diálogo e escolha Valores de 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 Início > 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 Kutools para Excel e avaliação gratuita agora!


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office 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!
parte inferior da aba do escritório
Comentários (15)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Tenho uma coluna com os números 5,4,3,2 e 1 (MUITOS) e quero separar os Cincos dos outros, como: 5 5 5 4 3 2 1 5 5 5 5 5 4 3 2 1 Os números estão em ordem desc e sempre há quatro abaixo de cinco, então eu tentei: Sub InsertRowsAtValueChange() 'Update 20140716 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 Para i = WorkRng.Rows.Count Para 2 Etapa -1 Se WorkRng.Cells(i, 1). Value = 5 E WorkRng.Cells(i - 1, 1).Value = 4 Then WorkRng.Cells(i, 1).EntireRow.Insert End If Next Application.ScreenUpdating = True End Sub Mas não funcionou. Pode me ajudar?
Este comentário foi feito pelo moderador no site
A fórmula está funcionando muito bem, mas há alguns exemplos em que ela não reconhece
Este comentário foi feito pelo moderador no site
Muito obrigado, procurei em todos os lugares e essa foi a única solução que funcionou para mim que também estava em inglês simples. Todos os outros sites de tutoriais do Excel não detalharam passo a passo como você fez, muito obrigado. Felicidades : )
Este comentário foi feito pelo moderador no site
Muito obrigado por descrever várias soluções para o problema. Usei o Visual Basic e alterei [quote]WorkRng.Cells(i, 1).EntireRow.Insert[/quote] com [quote]With WorkRng.Cells(i, 1).EntireRow.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlMedium End With[/quote] Isto irá desenhar linhas entre linhas com valores variáveis ​​em vez de linhas vazias.
Este comentário foi feito pelo moderador no site
Onde no código eu precisaria modificar para incluir mais de uma linha, preciso adicionar 10 após cada intervalo... Obrigado
Este comentário foi feito pelo moderador no site
Olá a todos obrigado!! é incrível, vocês também podem me deixar como inserir 2 linhas quando o valor muda no VBA ou através do excel.
Este comentário foi feito pelo moderador no site
Oi lá, Estes são quase úteis! O primeiro método não funciona para mim porque quando sigo as etapas explicitamente, os dados que excluo nos painéis de subtotais excluem as colunas inteiras que classifiquei. No segundo método, quando chego à etapa em que insiro as linhas da planilha, as linhas são inseridas ACIMA das células FALSE que dividem os dados, mas a última seleção de cada grupo é adicionada ao grupo abaixo. Algum conselho???
Este comentário foi feito pelo moderador no site
[quote]Olá a todos, obrigado!! é incrível, vocês também podem me deixar como inserir 2 linhas quando o valor muda no VBA ou através do excel.Por Hudson[/quote] Por favor, deixe-me saber como inserir mais de 1 linha.
Este comentário foi feito pelo moderador no site
Eu tenho usado minha própria solução por algum tempo.
1. Insira uma coluna auxiliar na Coluna A
2. Em A2, digite "if(B2=B1,A1,A1+1)"
3. Copie essa fórmula até a última linha
4. Copie todas as células preenchidas na coluna A e cole especial (valores) sobre elas
5. Copie todas as células novamente e cole-as na coluna A na primeira célula não preenchida (por exemplo, se você tiver 104 linhas de dados mais uma linha de cabeçalho, colaria na célula A106)
6. Clique em Dados e Remover Duplicatas (somente nas células que você acabou de colar na Etapa 5; não em todas as linhas)
7. Classifique toda a Coluna A
8. Excluir Coluna A

Parece um monte de passos, mas leva apenas alguns segundos.
Este comentário foi feito pelo moderador no site
O código VBA funcionou pela primeira vez e fez exatamente o que eu estava tentando fazer. Muito obrigado!
Este comentário foi feito pelo moderador no site
RE: insira linhas em branco quando o valor for alterado com código vba
Existe uma maneira de salvar o intervalo e não ter que selecioná-lo toda vez que o executo?
Este comentário foi feito pelo moderador no site
Olá,
É muito útil caso eu precise inserir 1 linha, mas se eu precisar inserir 145 linhas toda vez que os dados mudarem na coluna spwcific, como posso fazer isso??
Este comentário foi feito pelo moderador no site
Olá, Hassan,
Para inserir várias linhas em branco quando o valor for alterado em uma coluna específica, você deve aplicar o seguinte código VBA:

Nota: No código abaixo, você deve alterar o número 99 para sua necessidade, por exemplo, ao inserir 145 linhas em branco, você deve alterar o número 99 para 144. Por favor, tente, espero que possa ajudá-lo!

Sub InsertRowsAtValueChange()
Dim Rng como intervalo
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Definir WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Para 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
Se acabar
Seguinte
Application.ScreenUpdating = True
End Sub
Este comentário foi feito pelo moderador no site
Muito útil. O código que skyyang mostra acima funcionou perfeitamente. Apenas certifique-se de que os dados ainda não tenham espaços.

Eu não entendo VBA, mas acredito que se você quisesse adicionar mais linhas abaixo dos dados que já tinham o espaçamento, deveria haver uma maneira de ignorar os espaços.

Uma linha pode ser adicionada para ignorar ou pular linhas em branco? Isso pode tornar esse código mais universal e repetível, se necessário. Além disso, uma função de exclusão semelhante a esta pode ser útil, portanto, desfazer não é necessário.
Este comentário foi feito pelo moderador no site
O método VBA pode ser adaptado para ignorar células em branco? Eu tenho um arquivo no qual preciso inserir linhas com base em duas colunas diferentes, mas quando executo a macro na segunda coluna, acabo com três linhas em branco onde a primeira macro executa as linhas inseridas.
Ou pode ser executado em duas colunas ao mesmo tempo?
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL