Como imprimir uma coluna longa numa única página no Excel?
Imagine que tem uma lista longa de dados numa coluna — talvez 200 linhas — e precisa agora de a imprimir. Ao fazê-lo, gasta cerca de cinco folhas de papel, com apenas uma coluna no lado esquerdo e muito espaço em branco no lado direito. No Word, pode dividir o conteúdo em colunas, mas o Excel não oferece essa funcionalidade. Como pode imprimir todos os dados dessa lista longa numa única página para poupar papel?
Imprimir coluna longa numa página com fórmula
Imprimir coluna longa numa página com código VBA
Imprimir coluna longa numa página com Kutools para Excel
Imprimir coluna longa numa página com fórmula
Apresento-lhe aqui uma fórmula longa para resolver este problema; siga estes passos:
1. Numa nova folha da sua pasta de trabalho atual, introduza 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.
- Sheet1 é a folha de cálculo que contém a lista longa que pretende dividir em colunas.
- 45 é o número da linha a partir do qual pretende listar os dados numa coluna.
- São todas variáveis e podem ser ajustadas de acordo com as suas necessidades.
2. Em seguida, selecione a célula A1 e arraste a alça de preenchimento até à linha 45. Depois, continue a arrastá-la para a direita até que os dados apareçam. Assim, a coluna longa será dividida em várias colunas, ajustando-se perfeitamente a uma única página na nova folha de cálculo. Veja a captura de ecrã:
Imprimir coluna longa numa página com código VBA
O seguinte código VBA também o pode ajudar a dividir uma lista longa de dados em várias colunas, facilitando a impressão e poupando papel.
1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic para Aplicações.
2. Clique em Inserir > Módulo e cole o código seguinte 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, prima a tecla F5 para executar este código e selecione, na caixa de diálogo que surge, os dados da lista que pretende dividir. Veja a captura de ecrã:
4. Clique em OK e introduza o número de colunas em que pretende dividir os dados. Veja a captura de ecrã:
5. Depois, clique em OK e a coluna longa será dividida em cinco colunas numa nova folha de cálculo. Veja as capturas de ecrã:
 |  |  |
Imprimir coluna longa numa página com Kutools para Excel
Tanto a fórmula longa como o código VBA podem ser complicados para si. Por isso, apresento-lhe um método simples e prático para resolver este problema. A função Kutools para Excel’s Dividir em Colunas permite-lhe dividir rapidamente uma coluna extensa em várias colunas, para que as possa imprimir de forma adequada.
Kutools para Excel inclui mais de 300 ferramentas práticas para o Excel. Experimente gratuitamente e sem limitações durante 30 dias.Obtenha Agora.
Depois de instalar o Kutools para Excel, siga os passos seguintes:
1. Clique em KUTOOLS PLUS > Dividir em Colunas. Veja a captura de ecrã:
2. Na caixa de diálogo que aparece:
- Clique no primeiro
botão para selecionar o título do intervalo e, em seguida, clique no segundo botão para escolher a coluna que pretende dividir.
- Depois, especifique o número de linhas que pretende por página em Linhas por Página e introduza o número de colunas que pretende numa página em Colunas por Página. Veja a captura de ecrã:
botão para selecionar o título do intervalo e, em seguida, clique no segundo 
3. Depois, clique em OK e os dados da lista longa serão divididos em cinco colunas numa página. Veja as capturas de ecrã:
 | |  |
- 1. O título será inserido antes de cada coluna.
- 2. Se marcar a opção Criar Link com a Planilha Atual, os dados da nova planilha podem ser ligados aos dados de origem.
- Se pretender saber mais sobre esta funcionalidade, clique em Imprimir Múltiplas Colunas.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos