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
Imprimir coluna longa em uma página com Kutools for Excel
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:
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:
4. Clique OKe digite o número de colunas que deseja dividir. Veja a imagem:
5. E clique em OK, a coluna longa foi dividida em cinco colunas em uma nova planilha. Veja as capturas de tela:
 |
 |
 |
Imprimir coluna longa em uma página com Kutools for 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.
Quando você tiver instalado Kutools for Excel, você pode fazer as seguintes etapas:
1. Clique Empreendimento > Imprimir várias colunas, veja a captura de tela:
2. No Imprimir várias colunas caixa de diálogo:
- Clique no primeiro
botão para selecionar o título do intervalo e, em seguida, clique no segundo para 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:
3. Então clique OK, os dados da lista longa foram divididos em cinco colunas em uma página. Veja as capturas de tela:
 |
|
 |
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.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com Kutools for Excele experimente eficiência como nunca antes. Kutools for 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 a 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!
