Note: The other languages of the website are Google-translated. Back to English
Inicie sesión  \/ 
x
or
x
Regístrate  \/ 
x

or

¿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

Pestaña de Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
  • Reutiliza cualquier cosa: Agregue las fórmulas, gráficos y cualquier otra cosa más utilizados o complejos a sus favoritos y reutilícelos rápidamente en el futuro.
  • Más de 20 funciones de texto: Extraer número de la cadena de texto; Extraer o eliminar parte de los textos; Convierta números y monedas a palabras en inglés.
  • Combinar herramientas: Varios libros de trabajo y hojas en uno; Fusionar varias celdas / filas / columnas sin perder datos; Fusionar filas duplicadas y suma.
  • Herramientas divididas: Divida los datos en varias hojas según el valor; Un libro de trabajo para varios archivos Excel, PDF o CSV; Una columna a varias columnas.
  • Pegar saltando Filas ocultas / filtradas; Cuenta y suma por color de fondo; Envíe correos electrónicos personalizados a varios destinatarios de forma masiva.
  • Súper filtro: Cree esquemas de filtros avanzados y aplíquelos a cualquier hoja; Ordenar por semana, día, frecuencia y más; Filtrar por negrita, fórmulas, comentario ...
  • Más de 300 potentes funciones; Funciona con Office 2007-2019 y 365; Soporta todos los idiomas; Fácil implementación en su empresa u organización.

flecha azul burbuja derecha Imprima una columna larga en una página con fórmula


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:

doc-print-long-column1


flecha azul burbuja derecha 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:

doc-print-long-column2

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

doc-print-long-column3

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:

doc-print-long-column4 -2 doc-print-long-column5

flecha azul burbuja derecha 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:

doc-print-long-column6

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

  • Haga clic en el primero botón docpara seleccionar el título del rango y luego haga clic en el segundo botón docpara 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:

doc-print-long-column7

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:

doc-print-long-column8 -2 doc-print-long-column9

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.
pestaña kte 201905

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!
officetab parte inferior
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    George · 3 years ago
    Or you can just copy the table, and paste it in a word document, with as many columns you want to have.
  • To post as a guest, your comment is unpublished.
    Beckett Kirk · 4 years ago
    Thank you! The formula worked seamlessly!
  • To post as a guest, your comment is unpublished.
    Jake Kacher · 4 years ago
    You can use a simple formula =OFFSET(Sheet1!$A$1,(ROW()-2)*5+COLUMN(),0) to let the data flow horizontally in 5 columns.
    Then you can select Page size, print first row on each page, etc. Simple, neat, no VBA
    • To post as a guest, your comment is unpublished.
      Jen · 4 years ago
      where does this formula go? I am trying to print multiple rows with several columns on one page in a multiple row layout. Similar to this:

      john smith week 1
      john smith week 2
      john smith totals


      I have over 100 rows with up to IJ
    • To post as a guest, your comment is unpublished.
      Tara · 4 years ago
      Is there a way to modify this formula to work with 3 columns instead of 1?
      • To post as a guest, your comment is unpublished.
        Jeremy · 4 years ago
        I would be interested in a solution like this as well.
  • To post as a guest, your comment is unpublished.
    Mohsin Dastgeer · 4 years ago
    Dear Sir
    Thanks for this work, This VBA Code is very helpful for my work, I am glad to complete my task in seconds. Thank You. ....
  • To post as a guest, your comment is unpublished.
    Ron · 5 years ago
    After searching the internet for hours, I stumbled across this. Its exactly what I was looking for. Nice job and thanks for taking the time out for this.
  • To post as a guest, your comment is unpublished.
    Tarina · 5 years ago
    Thank you for this information! It was very helpful and easy to use - even for somebody lacking strong computer skills (I used the first method)
  • To post as a guest, your comment is unpublished.
    Antonio · 7 years ago
    Hello, I have a question related to the second option "Print long column on one page with VBA code".

    If i have more than one column in range how can I use the same code. Let say the range of "$A$2:$C$118" how can i do it work.

    Thanks.