¿Cómo imprimir una columna larga en una sola página en Excel?
Imagine que tiene una larga lista de datos en una columna —quizás 200 filas— y necesita imprimirla. Al hacerlo, ocupa aproximadamente cinco páginas, con una sola columna a la izquierda y mucho espacio en blanco a la derecha. En Word puede dividir el texto en columnas, pero Excel no ofrece esta función. ¿Cómo puede imprimir todos los datos de esa lista larga en una sola página para ahorrar papel?
Imprimir columna larga en una página con fórmula
Imprimir columna larga en una página con código VBA
Imprimir columna larga en una página con Kutools para Excel
Imprimir columna larga en una página con fórmula
A continuación le presento una fórmula extensa para resolver este problema; siga estos pasos:
1. En una hoja de cálculo nueva de su libro de trabajo actual, introduzca la fórmula =IF(OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)=«»,"",OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)) en la celda A1.
- Sheet1 es la hoja de cálculo que contiene la lista larga que desea dividir en columnas.
- 45 es el número de fila en el que desea mostrar los datos en una columna.
- Todos ellos son variables y puede ajustarlos según sus necesidades.
2. A continuación, seleccione la celda A1 y arrastre el controlador de relleno hacia abajo hasta la fila 45. Luego, siga arrastrándolo hacia la derecha hasta que aparezcan todos los datos. Así, la columna larga quedará dividida en varias columnas para ajustarse perfectamente en una página de una hoja de cálculo nueva. Vea la captura de pantalla:
Imprimir columna larga en una página con código VBA
El siguiente código VBA también le permite dividir una lista larga de datos en varias columnas, facilitando su impresión y ayudándole a ahorrar papel.
1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del 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. A continuación, pulse la tecla F5 para ejecutar este código y seleccione la lista de datos que desea dividir en el cuadro de diálogo que aparece. Vea la captura de pantalla:
4. Haga clic en Aceptar e introduzca el número de columnas en las que desea dividir los datos. Vea la captura de pantalla:
5. Haga clic en Aceptar y la columna larga se dividirá en cinco columnas en una hoja de cálculo nueva. Vea las capturas de pantalla:
 |  |  |
Imprimir columna larga en una página con Kutools para Excel
Tanto la fórmula larga como el código VBA pueden resultarle complicados. A continuación, le presentamos un método sencillo y cómodo para resolver este problema. La función Kutools para Excel’s Dividir en columnas le permite dividir rápidamente una columna larga en varias columnas para que pueda imprimirlas de forma adecuada.
Kutools para Excel incluye más de 300 herramientas útiles para Excel. ¡Prueba gratis sin limitaciones durante 30 días! ¡Obténlo ahora!
Una vez que haya instalado Kutools para Excel, siga estos pasos:
1. Haga clic en KUTOOLS PLUS > Dividir en columnas. Vea la captura de pantalla:
2. En el cuadro de diálogo que aparece:
- Haga clic en el primer
botón para seleccionar el título del rango y, a continuación, haga clic en el segundo botón para seleccionar la columna que desea dividir.
- A continuación, especifique el número de filas que desea mostrar por página en Filas por Página e introduzca el número de columnas que desea en una página en Columnas por Página. Vea la captura de pantalla:
botón para seleccionar el título del rango y, a continuación, haga clic en el segundo 
3. A continuación, haga clic en Aceptar y los datos de la lista larga se dividirán en cinco columnas en una página. Vea las capturas de pantalla:
 | |  |
- 1. El título se añadirá antes de cada columna.
- 2. Si marca la opción Crear enlace con la hoja de cálculo actual, los datos de la nueva hoja de cálculo se vincularán a los datos de origen.
- Si desea obtener más información sobre esta función, haga clic en Imprimir varias columnas.
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos