Como inserir números de página em célula / cabeçalho / rodapé no Excel?

Ao imprimir um arquivo do Excel, você pode precisar inserir os números de página nas páginas para que o arquivo impresso fique organizado e legível. Neste artigo, vou apresentar alguns truques rápidos para inserir números de página em células, cabeçalhos ou rodapés.

Inserir número de página no cabeçalho / rodapé em uma planilha

Inserir número de página no cabeçalho / rodapé em várias planilhas

Inserir número de página em célula com código VBA

Remover todos os números de página de uma vez no Excel

Inserir número de página no cabeçalho / rodapé em uma planilha

Normalmente, podemos inserir rapidamente os números de página no cabeçalho ou rodapé usando a função Cabeçalho e Rodapé. Por favor, siga os passos abaixo:

1. Vá para a planilha onde deseja inserir os números de página no cabeçalho ou rodapé.

2. Em seguida, clique em Inserir > Cabeçalho & Rodapé, e sua planilha entrará na visualização de Layout da Página, veja a captura de tela:

3. Clique no cabeçalho ou rodapé onde deseja inserir o número de página, e então uma guia Design com Ferramentas de Cabeçalho e Rodapé será exibida na Faixa de Opções, depois clique em Design > Número da Página, veja a captura de tela:

4. E você verá o espaço reservado &[Página] aparecer na seção selecionada, então clique em qualquer lugar fora da área do cabeçalho ou rodapé para exibir os números de página. Veja a captura de tela:

5. Agora, você pode voltar à visualização normal clicando em Exibir > Normal, e ao imprimir esta planilha, você verá que os números de página foram inseridos no cabeçalho ou rodapé que você selecionou.

Observação: Se você quiser que os números de página sejam exibidos no formato 1 de 15, 2 de 15, basta digitar diretamente &[Página] de &[Páginas] no campo do cabeçalho ou rodapé, veja a captura de tela:

Inserir número de página no cabeçalho / rodapé em várias planilhas

O método acima pode ajudá-lo a inserir os números de página em uma planilha. Se você deseja inserir os números de página em todas as planilhas da pasta de trabalho para numerar todas as páginas em ordem sequencial, siga estes passos:

1. Selecione todas as guias de planilha, vá para a guia Layout da Página e clique no ícone Botão de Iniciador da Caixa de Diálogo no grupo Configuração da Página, veja a captura de tela:

2. Na caixa de diálogo Configuração da Página, clique na guia Cabeçalho/Rodapé e, em seguida, clique em Cabeçalho Personalizado ou Rodapé Personalizado para configurar o cabeçalho ou rodapé que deseja, veja a captura de tela:

3. E na caixa de diálogo Cabeçalho ou Rodapé, defina a localização onde os números de página serão inseridos clicando dentro da caixa Seção Esquerda:, Seção Central:, ou Seção Direita: conforme necessário, e depois clique no ícone Inserir Número da Página, e o espaço reservado &[Página] aparece. Veja a captura de tela:

Observação: Insira &[Página] de &[Páginas] no campo do cabeçalho ou rodapé se desejar que os números de página sejam exibidos como 1 de 45, 2 de 45…

4. Em seguida, clique em OK > OK para fechar as caixas de diálogo. Ao imprimir esta pasta de trabalho, na visualização de impressão, você verá que todos os números de página são inseridos no cabeçalho ou rodapé em ordem sequencial.

Inserir número de página em célula com código VBA

É fácil inserir os números de página no cabeçalho ou rodapé, mas, se você precisar inserir os números de página em uma célula da planilha, não há uma maneira direta de fazer isso. O seguinte código VBA pode ajudá-lo a resolver esse problema.

1. Clique em uma célula onde deseja exibir o número da página desta célula.

2. Pressione as teclas ALT + F11, e abrirá a janela Microsoft Visual Basic for Applications.

3. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Inserir número da página atual em uma célula:

Sub pagenumber()
'updateby Extendoffice 20160506
    Dim xVPC As Integer
    Dim xHPC As Integer
    Dim xVPB As VPageBreak
    Dim xHPB As HPageBreak
    Dim xNumPage As Integer
    xHPC = 1
    xVPC = 1
    If ActiveSheet.PageSetup.Order = xlDownThenOver Then
        xHPC = ActiveSheet.HPageBreaks.Count + 1
    Else
        xVPC = ActiveSheet.VPageBreaks.Count + 1
    End If
    xNumPage = 1
    For Each xVPB In ActiveSheet.VPageBreaks
        If xVPB.Location.Column > ActiveCell.Column Then Exit For
        xNumPage = xNumPage + xHPC
    Next
    For Each xHPB In ActiveSheet.HPageBreaks
        If xHPB.Location.Row > ActiveCell.Row Then Exit For
        xNumPage = xNumPage + xVPC
    Next
    ActiveCell = "Page " & xNumPage & " of " & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

4. Em seguida, pressione a tecla F5 para executar este código, e o número da página desta célula será exibido na célula selecionada, veja a captura de tela:

Remover todos os números de página de uma vez no Excel

Para remover todos os números de página, você pode aplicar os seguintes passos:

1. Selecione todas as guias de planilha e vá para a guia Layout da Página na faixa de opções, depois clique no ícone Botão de Iniciador da Caixa de Diálogo no grupo Configuração da Página, veja a captura de tela:

2. Na caixa de diálogo Configuração da Página, clique na guia Cabeçalho/Rodapé e, em seguida, escolha (nenhum) na lista suspensa Cabeçalho ou Rodapé, veja a captura de tela:

3. Em seguida, clique no botão OK, e todos os números de página serão removidos da pasta de trabalho de uma vez.