¿Cómo imprimir una columna larga en una sola página en Excel?

Supongamos que tienes una lista larga de datos en una columna, tal vez 200 filas, y ahora necesitas imprimirla, pero cuando lo haces, usa aproximadamente 5 páginas de papel, con solo una columna en el lado izquierdo y mucho espacio en blanco en el lado derecho. En Word, puedes dividir en columnas, pero Excel no tiene esta función. ¿Cómo imprimes los datos de la lista larga en una sola página para ahorrar papel?

Imprimir una columna larga en una página con fórmula

Imprimir una columna larga en una página con código VBA

Imprimir una columna larga en una página con Kutools para Excel

Imprimir una columna larga en una página con fórmula

Aquí puedo presentarte una fórmula larga para resolver este problema, por favor hazlo así:

1. En una nueva hoja de cálculo de tu libro de trabajo activo, introduce la fórmula =SI(DESREF(Sheet1!$A$1;(COLUMNA()-1)*45+FILA()-1;0)="";"";DESREF(Sheet1!$A$1;(COLUMNA()-1)*45+FILA()-1;0)) en la celda A1.

2. Luego selecciona la celda A1, y arrastra el controlador de relleno hacia abajo hasta la fila 45, y luego sigue arrastrando el controlador de relleno hacia la derecha hasta que se muestren los datos. Y la columna larga se ha dividido en varias columnas para caber en una página en una nueva hoja de cálculo. Ver captura de pantalla:

Imprimir una columna larga en una página con código VBA

El siguiente código VBA también puede ayudarte a dividir una lista larga de datos en varias columnas, para que puedas imprimir los datos y ahorrar papel.

1. Mantén presionadas las teclas ALT + F11, y se abrirá la ventana Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega 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. Luego presiona la tecla F5 para ejecutar este código, y selecciona los datos de la lista que deseas dividir en el cuadro de diálogo emergente, ver captura de pantalla:

4. Haz clic en Aceptar, e ingresa el número de columnas en las que deseas dividir. Ver captura de pantalla:

5. Y haz clic en Aceptar, la columna larga se ha dividido en cinco columnas en una nueva hoja de cálculo. Ver capturas de pantalla:

Imprimir una columna larga en una página con Kutools para Excel

Tanto la fórmula larga como el código VBA pueden ser difíciles para ti, aquí puedo presentarte un método fácil y conveniente para resolver este problema. La función Dividir Datos de Kutools para Excel puede ayudarte a dividir rápidamente la columna larga en varias columnas para que puedas imprimirlas de manera razonable.

Kutools para Excel incluye más de 300 herramientas útiles para Excel. Prueba gratis sin limitaciones durante 30 días. Consíguelo Ahora.

Cuando hayas instalado Kutools para Excel, puedes hacer los siguientes pasos:

1. Haz clic en Kutools Plus > Dividir Datos, ver captura de pantalla:

2. En el cuadro de diálogo emergente:

• Haz clic en el primer botón para seleccionar el título del rango, y luego haz clic en el segundo botón para seleccionar la columna que deseas dividir.
• Luego especifica el número de filas que deseas colocar por página desde Filas por página impresa, e ingresa el número de columnas que deseas en una página bajo Columnas por página. Ver captura de pantalla:

3. Luego haz clic en Aceptar, los datos de la lista larga se han dividido en cinco columnas en una página. Ver capturas de pantalla: