Ir para o conteúdo principal

Como inserir quebras de página quando o valor muda no Excel?

Suponha que eu tenha um intervalo de células e, agora, desejo inserir quebras de página na planilha quando os valores da coluna A mudarem conforme a captura de tela à esquerda mostrada. Claro, você pode inseri-los um por um, mas há alguma maneira rápida de inserir as quebras de página de uma vez com base nos valores alterados de uma coluna?

Insira quebras de página quando o valor mudar com o código VBA

Insira quebras de página quando o valor mudar com um recurso poderoso


Insira quebras de página quando o valor mudar com o código VBA

O código VBA a seguir pode ajudá-lo a inserir quebras de página abaixo com base nas alterações de dados da coluna, faça o seguinte:

1. Mantenha pressionada a ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

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

Código VBA: insira quebras de página quando o valor mudar:

Sub insertpagebreaks()
'updateby Extendoffice
    Dim I As Long, J As Long
    J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    For I = J To 2 Step -1
        If Range("A" & I).Value <> Range("A" & I - 1).Value Then
            ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
        End If
    Next I
End Sub

3. Então aperte F5 chave para executar este código, todas as quebras de página foram inseridas na planilha quando os dados mudam na coluna A. Veja a captura de tela:

Observação:No código acima, A é o cabeçalho da coluna em que você deseja inserir a quebra de página, você pode alterá-lo conforme sua necessidade.

Insira quebras de página quando o valor mudar com um recurso poderoso

Se você tem Kutools for Excel, Com o seu Distinguir diferenças recurso, você pode inserir rapidamente quebras de página, linhas em branco, linhas de borda inferior ou cor de fundo com base nas alterações de valor. Clique para baixar o Kutools para Excel!

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 estalou para fora Distinguir diferenças por coluna-chave caixa de diálogo, faça as seguintes operações:

  • Selecione o intervalo de dados e a coluna-chave que deseja usar;
  • Escolha quebra de página do Opções caixa.

3. Então clique Ok botão, as quebras de página foram inseridas no intervalo com base nas alterações de valor, consulte a captura de tela:

Baixe e teste grátis Kutools para Excel agora!


Mais artigos relativos:

  • Destacar linhas quando o valor da célula mudar no Excel
  • Se houver uma lista de valores repetidos em sua planilha e você precisar realçar as linhas com base na coluna A, o valor da célula muda conforme a seguinte captura de tela mostrada. Na verdade, você pode concluir esse trabalho de forma rápida e fácil usando o recurso Formatação condicional.
  • Aumente os números quando o valor mudar em outra coluna
  • Supondo que você tenha uma lista de valores na coluna A, e agora deseja incrementar o número em 1 na coluna B quando o valor na coluna A muda, o que significa que os números na coluna B aumentam até que o valor na coluna A mude, então o o incremento do número começa em 1 novamente, como mostrado na imagem à esquerda. No Excel, você pode resolver esse trabalho com o seguinte método.
  • Células de soma quando o valor muda em outra coluna
  • Quando você trabalha em uma planilha do Excel, às vezes, pode ser necessário somar células com base em um grupo de dados em outra coluna. Por exemplo, aqui, quero somar os pedidos na coluna B quando os dados mudam na coluna A para obter o seguinte resultado. Como você resolveria esse problema no Excel?
  • Inserir linhas em branco quando o valor mudar 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.
  • Executar macro quando o valor da célula mudar no Excel
  • Normalmente, no Excel, podemos pressionar a tecla F5 ou o botão Executar para executar o código VBA. Mas, você já tentou executar o código de macro específico quando o valor de uma célula muda? Neste artigo, vou apresentar alguns truques rápidos para lidar com esse trabalho no Excel.

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

Merci pour le code qui fonctionne très bien, seulement je souhaite ajouter un saut de page après et non avant chaque changement de valeur... que faut-il changer dans le code ?

Merci beaucoup !
This comment was minimized by the moderator on the site
Tôi không muốn ngắt trang tại những hàng bị ẩn. Thì phải làm sao?
This comment was minimized by the moderator on the site
Hello, Lê Tuấn
To solve your problem, please apply the below VBA code:
Sub insertpagebreaks()
'updateby Extendoffice
Dim I As Long, J As Long
Dim xRg As Range
On Error Resume Next
J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Set xRg = Range("A1:A" & J).SpecialCells(xlCellTypeVisible)

For I = J To 2 Step -1
If Range("A" & I).Value <> Range("A" & I - 1).Value Then
If Not Intersect(xRg, Range("A" & I)) Is Nothing Then
ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
End If
End If
Next I
End Sub


Please try, hope it can help you!
This comment was minimized by the moderator on the site
Is it possible to skip the first 20 rows of the sheet? If been trying all kinds of stuff but my knowledge of VBA is to limited to adjuist the code myself.
This comment was minimized by the moderator on the site
Hi, Wilco,
To insert the page break but skip the first 20 rows, you just need to change one parameter as below code:

Sub insertpagebreaks()

'updateby Extendoffice

Dim I As Long, J As Long

J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

For I = J To 21 Step -1

If Range("A" & I).Value <> Range("A" & I - 1).Value Then

ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)

End If

Next I

End Sub

Please try, thank you!
This comment was minimized by the moderator on the site
That is truly brilliant! I followed along on your VB example and it worked! I also am an owner of KUTools so I will play with that too.

Very impressed and thanks!

Mike
This comment was minimized by the moderator on the site
Sorry. EDIT: The first ROW is a column header.
This comment was minimized by the moderator on the site
Hello, Thank you! The thought of VBA makes me sweat. I do have one problem with the results of this code though. The first column is a column header. The code treats this as a change. My first page only shows the column header, but he following pages are fine. FYI: This is for a monthly report and the number of rows for each criteria change monthly. Any Ideas? Thank you in advance.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations