Como inserir quebras de página condicionais no Excel?
Suponha que você precise inserir quebras de página sempre que os valores na coluna A mudarem, conforme mostrado na captura de tela abaixo. Como você faria isso no Excel? Geralmente, você pode inserir as quebras de página manualmente uma a uma, mas aqui eu apresento alguns truques para resolver isso rapidamente.
Usar a função Subtotal para inserir quebras de página
Usar código VBA para inserir quebras de página
Marcar Alterações na Coluna para inserir quebra de página quando os dados mudam
Inserir quebras de página em intervalos fixos (a cada N linhas)
Usando a função Subtotal para inserir quebras de página
No Excel, a função Subtotal pode adicionar quebras de página com base em grupos.
1. Selecione os dados nos quais deseja adicionar quebras de página e clique em Dados > Subtotal.
2. Na caixa de diálogo Subtotal selecione a coluna na qual deseja inserir a quebra de página com base em seus valores no menu suspenso 'A cada mudança em', depois escolha a função que deseja usar da lista Usar função e marque a opção Quebra de página entre grupos e outras configurações conforme necessário.
3. Clique em OK. Agora os dados foram agrupados e as quebras de página foram adicionadas.
Usar código VBA para inserir quebras de página
Se você não deseja adicionar grupos aos dados, pode tentar usar o código VBA para realizar essa tarefa.
1. Pressione Alt + F11 para exibir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo, copie e cole o código abaixo na nova janela Módulo.
VBA: Inserir quebras de página quando os dados mudam
Sub PageBreak()
'UpdatebyExtendOffice20181101
Dim xSRg As Range
Dim xRg As Range
On Error Resume Next
Set xSRg = Application.InputBox("Select key column:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each xRg In xSRg
ActiveSheet.Rows(xRg.Row).PageBreak = xlPageBreakNone
If xRg.Value <> xRg.Offset(-1, 0).Value Then
ActiveSheet.Rows(xRg.Row).PageBreak = xlPageBreakManual
End If
Next xRg
Application.ScreenUpdating = True
End Sub
3. Pressione F5 Uma caixa de diálogo aparecerá lembrando que você deve selecionar a coluna principal na qual a quebra de página será inserida.
4. Clique em OK, agora as quebras de página foram inseridas.
Marcar Alterações na Coluna para inserir quebra de página quando os dados mudam
O recurso Marcar Alterações na Coluna do Kutools for Excel suporta inserir quebra de página, linha em branco, borda inferior ou cor de fundo quando os dados mudam no Excel.
Após instalar o Kutools for Excel, siga os passos abaixo:（Baixe Grátis o Kutools for Excel Agora!)
Clique em Kutools > Formatar > Marcar Alterações na Coluna.
2. No diálogo Marcar Alterações na Coluna Principal, conclua as seguintes configurações:
1) Clique no ícone de seleção
na seção Intervalo selecione o intervalo de dados (excluindo os cabeçalhos das colunas)
2) Clique no ícone de seleção na seção Coluna Chave selecione a coluna na qual deseja inserir a quebra de página com base nas alterações dos dados correspondentes (excluindo os cabeçalhos das colunas)
3) Marque a opção Quebra de Página na seção Opções .
3. Clique em Ok.
Agora as quebras de página são inseridas sempre que os dados mudam no intervalo selecionado.
Inserir Quebras de Página em Intervalos Fixos (a cada N linhas)
Se você deseja inserir quebras de página em um intervalo fixo, pode usar a ferramenta Inserir Página a Cada Linha do Kutools for Excel para resolver o problema rapidamente.
Após instalar o Kutools for Excel, siga os passos abaixo:（Baixe Grátis o Kutools for Excel Agora!)
1. Selecione os dados e clique em Kutools Plus > Imprimir > Inserir Quebra de Página a Cada Linha.
2. Na caixa de diálogo Inserir Quebra de Página a Cada Linha digite o intervalo conforme necessário.
3. Clique em OK > OK para fechar as caixas de diálogo, as quebras de página foram inseridas a cada 2 linhas.
Inserir Quebra de Página a Cada N Linhas
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins