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

Supongamos que tiene una lista larga de datos en una columna, tal vez 200 filas, y ahora necesita imprimirlos, pero cuando imprime, usa papel de aproximadamente 5 páginas, con solo una columna en el lado izquierdo y mucho espacio en blanco en el lado correcto. En palabras, puede colocar columnas, pero Excel no tiene esta función. ¿Cómo se imprimen los datos de la lista larga en una página para ahorrar papel?

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

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

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

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

¡Asombroso! ¡Uso de pestañas eficientes en Excel como Chrome, Firefox y Safari!

¡Ahorre el 50% de su tiempo y reduzca miles de clics del mouse todos los días!

Aquí puedo presentarte una fórmula larga para resolver este problema, haz lo siguiente:

1. En una nueva hoja de trabajo de su libro activo, ingrese 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.

Notas: Sheet1 es la hoja de trabajo que tiene la lista larga que desea colocar en la columna.

45 es el número de fila en el que desea incluir los datos en una columna.

Todas son variables y puede cambiarlas según sus necesidades.

2. Luego, seleccione la celda A1 y arrastre el controlador de relleno hasta la fila 45, y luego continúe 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 que quepan en una página en una nueva hoja de trabajo. Ver captura de pantalla:

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

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

1. Mantenga pulsado el ALT + F11 llaves, y abre el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy 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. Luego presione el F5 para ejecutar este código, y seleccione la lista de datos que desea dividir en el cuadro de diálogo emergente, vea la captura de pantalla:

4. Hacer clic OKe ingrese el número de columnas que desea dividir. Ver captura de pantalla:

5. Y haga clic en OK, la columna larga se ha dividido en cinco columnas en una nueva hoja de trabajo. Ver capturas de pantalla:

Imprima 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. Kutools for Excel, Imprimir varias columnas La función puede ayudarlo a dividir rápidamente la columna larga en varias columnas para que pueda imprimirlas de manera razonable.

Kutools for Excel incluye más de 300 útiles herramientas de Excel. Prueba gratis sin límite en 30 días. Comprar ahora .

Cuando haya instalado Kutools para Excel, puede hacer los siguientes pasos:

1. Hacer clic Empresa > Imprimir varias columnas, ver captura de pantalla:

2. En la Imprimir varias columnas caja de diálogo:

• Haga clic en el primero para seleccionar el título del rango y luego haga clic en el segundo para seleccionar la columna que desea dividir.
• Luego especifique el número de filas que desea poner por página desde Filas por página impresae ingrese el número de columnas que desea en una página en Numero de segmentos. Ver captura de pantalla:

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

Notas

1. El título se agregará antes de cada columna.

2. Si marca Crea un enlace con la hoja activa opción, los datos de la nueva hoja de trabajo se pueden vincular 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 de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

• Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
• Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
• Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
• Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
• Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
• Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
• Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
• Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
• Más de 300 potentes funciones. Compatible con Office / Excel 2007-2019 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Características completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.

Leer más ... Descarga gratis... Compra... 

---

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

• Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
• ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!

Leer más ... Descarga gratis... Compra...