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

Como imprimir colunas longas em uma página no Excel?

Suponha que você tenha uma longa lista de dados em uma coluna, talvez 200 linhas, e agora precise imprimi-los, mas quando você imprime, usa papel de cerca de 5 páginas, com apenas uma coluna do lado esquerdo e muito espaço em branco O lado direito. Em suma, você pode coluna, mas o Excel não tem essa função. Como você imprime os dados da lista longa em uma página para economizar papel?

Imprimir coluna longa em uma página com fórmula

Imprimir coluna longa em uma página com código VBA

Imprima colunas longas em uma página com o Kutools para Excel

Guia Office Habilite a edição e navegação com guias no Office e torne seu trabalho muito mais fácil ...
O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
  • Reutilizar qualquer coisa: Adicione as fórmulas, gráficos e tudo mais usados ​​ou complexos aos seus favoritos e reutilize-os rapidamente no futuro.
  • Mais de 20 recursos de texto: Extrair número da string de texto; Extraia ou remova parte dos textos; Converta números e moedas para palavras em inglês.
  • Ferramentas de mesclagem: Várias pastas de trabalho e planilhas em um; Mesclar várias células / linhas / colunas sem perder dados; Mesclar linhas duplicadas e soma.
  • Ferramentas de divisão: Divida os dados em várias folhas com base no valor; Uma pasta de trabalho para vários arquivos do Excel, PDF ou CSV; Uma coluna para várias colunas.
  • Colar Ignorando Linhas ocultas / filtradas; Contagem e soma por cor de fundo; Envie emails personalizados para vários destinatários em massa.
  • Super Filtro: Crie esquemas de filtro avançados e aplique a qualquer planilha; tipo por semana, dia, frequência e muito mais; filtros por negrito, fórmulas, comentário ...
  • Mais de 300 recursos poderosos; Funciona com Office 2007-2021 e 365; Suporta todos os idiomas; Fácil implantação em sua empresa ou organização.

seta azul bolha direita Imprimir coluna longa em uma página com fórmula

Aqui posso apresentar a você uma longa fórmula para resolver este problema, por favor, faça o seguinte:

1. Em uma nova planilha de sua pasta de trabalho ativa, insira a fórmula =IF(OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)="","",OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)) na célula A1.

Notas: Sheet1 é a planilha que contém a longa lista que você deseja colocar na coluna.

45 é o número da linha que você deseja listar os dados em uma coluna.

Todas são variáveis ​​e você pode alterá-las conforme sua necessidade.

2. Em seguida, selecione a célula A1 e arraste a alça de preenchimento para baixo até a linha 45 e, a seguir, arraste a alça de preenchimento para a direita até que os dados sejam exibidos. E a coluna longa foi dividida em várias colunas para caber em uma página em uma nova planilha. Veja a imagem:

doc-print-long-coluna1


seta azul bolha direita Imprimir coluna longa em uma página com código VBA

O código VBA a seguir também pode ajudá-lo a dividir uma longa lista de dados em várias colunas, para que você possa imprimir os dados e economizar papel.

1. Segure o ALT + F11 chaves, e abre o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.

Sub SingleToMultiColumn()
    Dim rng As Range
    Dim iCols As Integer
    Dim lRows As Long
    Dim iCol As Integer
    Dim lRow As Long
    Dim lRowSource As Long
    Dim x As Long
    Dim wks As Worksheet
    Set rng = Application.InputBox _
      (prompt:="Select the range to convert", _
      Type:=8)
    iCols = InputBox("How many columns do you want?")
    lRowSource = rng.Rows.Count
    lRows = lRowSource / iCols
    If lRows * iCols <> lRowSource Then lRows = lRows + 1
    Set wks = Worksheets.Add
    lRow = 1
    x = 1
    For iCol = 1 To iCols
        Do While x <= lRows And lRow <= lRowSource
            Cells(x, iCol) = rng.Cells(lRow, 1)
            x = x + 1
            lRow = lRow + 1
        Loop
        x = 1
    Next
End Sub

3. Em seguida, pressione o botão F5 para executar este código e selecione os dados da lista que você deseja dividir na caixa de diálogo exibida, consulte a captura de tela:

doc-print-long-coluna2

4. Clique OKe digite o número de colunas que deseja dividir. Veja a imagem:

doc-print-long-coluna3

5. E clique em OK, a coluna longa foi dividida em cinco colunas em uma nova planilha. Veja as capturas de tela:

doc-print-long-coluna4 -2 doc-print-long-coluna5

seta azul bolha direita Imprima colunas longas em uma página com o Kutools para Excel

Tanto a fórmula longa quanto o código VBA podem ser difíceis para você, aqui posso apresentar um método fácil e conveniente para resolver esse problema. Kutools for Excel'S Imprimir várias colunas função pode ajudá-lo a dividir rapidamente a coluna longa em várias colunas para que você possa imprimi-las de maneira razoável.

Kutools for Excel inclui mais de 300 ferramentas úteis do Excel. Gratuito para testar sem limitação em 30 dias. Get it Now.

Depois de instalar o Kutools para Excel, você pode seguir as seguintes etapas:

1. Clique Empreendimento > Imprimir várias colunas, veja a captura de tela:

doc-print-long-coluna6

2. No Imprimir várias colunas caixa de diálogo:

  • Clique no primeiro botão doc botão para selecionar o título do intervalo e, em seguida, clique no segundo botão docpara selecionar a coluna que deseja dividir.
  • Em seguida, especifique o número de linhas que você deseja colocar por página de Linhas por página impressa, e insira o número de colunas que deseja em uma página em Número de segmentos. Veja a imagem:

doc-print-long-coluna7

3. Então clique OK, os dados da lista longa foram divididos em cinco colunas em uma página. Veja as capturas de tela:

doc-print-long-coluna8 -2 doc-print-long-coluna9

notas:

1. O título será adicionado antes de cada coluna.

2. Se você marcar Crie um link com a página ativa opção, os novos dados da planilha podem ser vinculados aos dados de origem.

Se você quiser saber mais sobre este recurso, clique em Imprimir várias colunas.


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 (13)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Olá, tenho uma dúvida relacionada à segunda opção "Imprimir coluna longa em uma página com código VBA". Se eu tiver mais de uma coluna no intervalo, como posso usar o mesmo código. Digamos que o intervalo de "$ A $ 2: $ C $ 118" como posso fazer isso funcionar. Obrigado.
Este comentário foi feito pelo moderador no site
Obrigado por esta informação! Foi muito útil e fácil de usar - mesmo para alguém sem fortes conhecimentos de informática (usei o primeiro método)
Este comentário foi feito pelo moderador no site
Depois de pesquisar na internet por horas, me deparei com isso. É exatamente o que eu estava procurando. Bom trabalho e obrigado por tirar um tempo para isso.
Este comentário foi feito pelo moderador no site
Prezado Senhor Obrigado por este trabalho, Este código VBA é muito útil para o meu trabalho, fico feliz em concluir minha tarefa em segundos. Obrigado. ....
Este comentário foi feito pelo moderador no site
Você pode usar uma fórmula simples =OFFSET(Sheet1!$A$1,(ROW()-2)*5+COLUMN(),0) para permitir que os dados fluam horizontalmente em 5 colunas. Então você pode selecionar o tamanho da página, imprimir a primeira linha em cada página, etc. Simples, limpo, sem VBA
Este comentário foi feito pelo moderador no site
Existe uma maneira de modificar esta fórmula para trabalhar com 3 colunas em vez de 1?
Este comentário foi feito pelo moderador no site
Eu também estaria interessado em uma solução como essa.
Este comentário foi feito pelo moderador no site
para onde vai essa fórmula? Estou tentando imprimir várias linhas com várias colunas em uma página em um layout de várias linhas. Semelhante a este:

john smith semana 1
john smith semana 2
totais de john smith


Eu tenho mais de 100 linhas com até IJ
Este comentário foi feito pelo moderador no site
Obrigada! A fórmula funcionou perfeitamente!
Este comentário foi feito pelo moderador no site
Ou você pode simplesmente copiar a tabela e colá-la em um documento do Word, com quantas colunas desejar.
Este comentário foi feito pelo moderador no site
Eu tenho uma coluna de 10,000 números e a macro VBA fornecerá uma tabela em várias páginas. No entanto, eu preferiria que cada página fosse classificada numericamente em vez da coluna. Qualquer ajuda apreciada.
Este comentário foi feito pelo moderador no site
Eu tenho uma coluna de 10,000 números únicos, todos ordenados. O código VBA fornece uma tabela, mas as Colunas são classificadas individualmente.
Eu preferiria que cada página fosse classificada numericamente tão fácil de seguir os dados página por página. Qualquer sugestão muito bem vinda.
Keith
Este comentário foi feito pelo moderador no site
Olá, Paterson,
Talvez o seguinte código VBA possa lhe fazer um favor:
Sub SingleToMultiColumn()
    Dim xRng As Range
    Dim xCount As Integer
    Dim xICols As Integer
    Dim xLRows As Long
    Dim xICol As Integer
    Dim xLRow As Long
    Dim xLRowSource As Long
    Dim xRowNum As Long
    Dim xFCount, xFNum, xFNum_R, xFNum_C As Long
    Dim x As Long
    Dim xWst As Worksheet
    Dim xJ As Integer
    
    Set xRng = Application.InputBox(prompt:="Select the range to convert", Type:=8)
    xICols = InputBox("How many columns do you want?")
    xRowNum = InputBox("How many rows do you want in a page?")
    xCount = xRng.Count
    xFCount = Fix(xCount / (xICols * xRowNum))
    If xICols * xRowNum * xFCount < xCount Then xFCount = xFCount + 1
    Set xWst = Worksheets.Add
    xJ = 0
    Application.ScreenUpdating = False
    For xFNum = 1 To xFCount
        If xJ = xCount Then Exit For
        For xFNum_C = 1 To xICols
            If xJ = xCount Then Exit For
            For xFNum_R = 1 To xRowNum
                If xJ = xCount Then Exit For
                xWst.Cells((xFNum - 1) * xRowNum + xFNum_R, xFNum_C) = xRng.Item(xJ + 1)
                xJ = xJ + 1
            Next
        Next
    Next
     Application.ScreenUpdating = True
End Sub



Por favor, tente, espero que possa ajudá-lo!
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