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

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:

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

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 (8)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Olá, obrigado! O pensamento de VBA me faz suar. Eu tenho um problema com os resultados deste código embora. A primeira coluna é um cabeçalho de coluna. O código trata isso como uma mudança. Minha primeira página mostra apenas o cabeçalho da coluna, mas as páginas seguintes estão bem. FYI: Isso é para um relatório mensal e o número de linhas para cada critério muda mensalmente. Alguma ideia? Agradeço antecipadamente.
Este comentário foi feito pelo moderador no site
Desculpe. EDIT: A primeira ROW é um cabeçalho de coluna.
Este comentário foi feito pelo moderador no site
Isso é realmente brilhante! Eu segui seu exemplo VB e funcionou! Eu também sou dono do KUTools, então vou brincar com isso também.

Muito impressionado e obrigado!

microfone
Este comentário foi feito pelo moderador no site
É possível pular as primeiras 20 linhas da planilha? Se estive tentando todos os tipos de coisas, mas meu conhecimento de VBA é limitado a ajustar o código sozinho.
Este comentário foi feito pelo moderador no site
Olá, Wilco,
Para inserir a quebra de página, mas pular as primeiras 20 linhas, basta alterar um parâmetro conforme o código abaixo:

Sub inserir quebras de página ()

'atualizar por Extendoffice

Dim I Enquanto, J Enquanto

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

Para I = J Para 21 Etapa -1

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

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

Se acabar

Proximo eu

End Sub

Por favor, tente, obrigado!
Este comentário foi feito pelo moderador no site
Tôi không muốn ngắt trang tại những hàng bị ẩn. Thì phải làm sao?
Este comentário foi feito pelo moderador no site
Olá, Lê Tuấn
Para resolver seu problema, aplique o código VBA abaixo:
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


Por favor, tente, espero que possa ajudá-lo!
Este comentário foi feito pelo moderador no site
Bom Dia,

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 valor... que faut-il changer dans le code ?

Muito obrigado!
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