Como inserir quebras de página condicionais no Excel?
Supondo que você precise inserir quebras de página enquanto os valores são alterados na coluna A conforme a captura de tela mostrada abaixo, como você poderia lidar com isso no Excel? Geralmente, você pode inserir as quebras de página uma a uma manualmente, mas aqui, apresento alguns truques para resolver isso rapidamente.
Usando a função Subtotal para inserir quebras de página
Usando código VBA para inserir quebras de página
Distinguir diferenças para inserir quebra de página quando os dados são alterados
Inserir quebra de página a cada linha para inserir quebra de página nas enésimas 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 no grupo.
1. Selecione os dados que deseja adicionar quebras de página e clique em Data > Valor.
2. No Valor caixa de diálogo, selecione a coluna que deseja inserir quebra de página com base em seu valor em A cada mudança na lista suspensa, em seguida, escolha a função que deseja usar Use a função lista, então verifique Quebra de página entre grupos caixa de seleção e outras opções conforme necessário.
3. Clique OK. Agora os dados foram agrupados e adicionadas quebras de página.
Usando código VBA para inserir quebras de página
Se você não quiser adicionar grupos aos dados, pode tentar o código VBA para lidar com esse trabalho.
1. Pressione Alt + F11 chaves para mostrar Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Módulo, copie e cole o código abaixo na nova janela do módulo.
VBA: inserir quebras de página quando os dados forem alterados
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á para lembrá-lo de selecionar a coluna-chave na qual a quebra de página será inserida.
4. Clique OK, agora as quebras de página foram inseridas.
Distinguir diferenças para inserir quebra de página quando os dados são alterados
A Distinguir diferenças característica de Kutools for Excel suporta inserir quebra de página, linha em branco, borda inferior ou cor de fundo quando os dados são alterados no Excel.
| Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. |
Depois de instalar Kutools para Excel, faça o seguinte:（Baixe gratuitamente o Kutools para Excel agora!)
Clique Kutools > Formato > Distinguir diferenças.
2. No Distinguir diferenças por coluna-chave diálogo, por favor, termine as configurações abaixo:
1) clique no ícone de seleção 
no Variação seção, selecione o intervalo de dados (excluindo cabeçalhos de coluna)
2) clique no ícone de seleção no Coluna chave seção, selecione a coluna que você deseja inserir quebra de página com base na alteração de dados correspondente (excluindo cabeçalhos de coluna)
3) verifique quebra de página opção em Opções seção.
3. Clique Ok.
Agora as quebras de página são inseridas quando os dados mudam no intervalo selecionado.
Inserir quebra de página a cada linha para inserir quebra de página nas enésimas linhas
Se você deseja inserir quebras de página em um intervalo fixo, você pode usar Kutools for Excel'S Inserir página a cada linha utilitário para lidar rapidamente com o problema.
Depois de instalar Kutools para Excel, faça o seguinte:（Baixe gratuitamente o Kutools para Excel agora!)
1. Selecione os dados e clique Kutools Plus > Impressão > Inserir quebra de página em cada linha.
2. No Inserir quebra de página em cada linha caixa de diálogo, digite o intervalo que você precisa.
3. Clique OK > OK para fechar diálogos, as quebras de página foram inseridas a cada 2 linhas.
Inserir página Quebrar a cada enésima linha
Melhores ferramentas de produtividade de escritório
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...
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!
