Note: The other languages of the website are Google-translated. Back to English

¿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-2021 y 365; Admite 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 doc para 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-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones 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
Comentarios (13)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Hola, tengo una pregunta relacionada con la segunda opción "Imprimir columna larga en una página con código VBA". Si tengo más de una columna en el rango, ¿cómo puedo usar el mismo código? Digamos el rango de "$ A $ 2: $ C $ 118", ¿cómo puedo hacerlo funcionar? Gracias.
Este comentario fue minimizado por el moderador en el sitio
¡Gracias por esta información! Fue muy útil y fácil de usar, incluso para alguien que carece de conocimientos informáticos sólidos (utilicé el primer método)
Este comentario fue minimizado por el moderador en el sitio
Después de buscar en Internet durante horas, me topé con esto. Es exactamente lo que estaba buscando. Buen trabajo y gracias por tomarse el tiempo para esto.
Este comentario fue minimizado por el moderador en el sitio
Estimado señor, gracias por este trabajo, este código VBA es muy útil para mi trabajo, me complace completar mi tarea en segundos. Gracias. ....
Este comentario fue minimizado por el moderador en el sitio
Puede usar una fórmula simple =OFFSET(Sheet1!$A$1,(ROW()-2)*5+COLUMN(),0) para permitir que los datos fluyan horizontalmente en 5 columnas. Luego puede seleccionar Tamaño de página, imprimir la primera fila en cada página, etc. Simple, ordenado, sin VBA
Este comentario fue minimizado por el moderador en el sitio
¿Hay alguna forma de modificar esta fórmula para que funcione con 3 columnas en lugar de 1?
Este comentario fue minimizado por el moderador en el sitio
Yo también estaría interesado en una solución como esta.
Este comentario fue minimizado por el moderador en el sitio
¿Adónde va esta fórmula? Estoy tratando de imprimir varias filas con varias columnas en una página en un diseño de varias filas. Similar a ésto:

john smith semana 1
john smith semana 2
totales de john smith


Tengo más de 100 filas con hasta IJ
Este comentario fue minimizado por el moderador en el sitio
¡Gracias! ¡La fórmula funcionó a la perfección!
Este comentario fue minimizado por el moderador en el sitio
O simplemente puede copiar la tabla y pegarla en un documento de Word, con tantas columnas como desee.
Este comentario fue minimizado por el moderador en el sitio
Tengo una columna de 10,000 XNUMX números y la macro de VBA proporcionará una tabla en varias páginas. Sin embargo, preferiría que cada página esté ordenada numéricamente en lugar de por columnas. Cualquier ayuda apreciada.
Este comentario fue minimizado por el moderador en el sitio
Tengo una columna de 10,000 números únicos, todos ordenados. El código de VBA proporciona una tabla, pero las columnas se ordenan individualmente.
Preferiría que cada página esté ordenada numéricamente para que sea fácil seguir los datos página por página. Cualquier sugerencia es bienvenida.
Keith
Este comentario fue minimizado por el moderador en el sitio
Hola Paterson,
Tal vez el siguiente código de VBA pueda hacerte un favor:
Sub SingleToMultiColumn()
    Dim xRng As Range
    Dim xCount As Integer
    Dim xICols As Integer
    Dim xLRows As Long
    Dim xICol As Integer
    Dim xLRow As Long
    Dim xLRowSource As Long
    Dim xRowNum As Long
    Dim xFCount, xFNum, xFNum_R, xFNum_C As Long
    Dim x As Long
    Dim xWst As Worksheet
    Dim xJ As Integer
    
    Set xRng = Application.InputBox(prompt:="Select the range to convert", Type:=8)
    xICols = InputBox("How many columns do you want?")
    xRowNum = InputBox("How many rows do you want in a page?")
    xCount = xRng.Count
    xFCount = Fix(xCount / (xICols * xRowNum))
    If xICols * xRowNum * xFCount < xCount Then xFCount = xFCount + 1
    Set xWst = Worksheets.Add
    xJ = 0
    Application.ScreenUpdating = False
    For xFNum = 1 To xFCount
        If xJ = xCount Then Exit For
        For xFNum_C = 1 To xICols
            If xJ = xCount Then Exit For
            For xFNum_R = 1 To xRowNum
                If xJ = xCount Then Exit For
                xWst.Cells((xFNum - 1) * xRowNum + xFNum_R, xFNum_C) = xRng.Item(xJ + 1)
                xJ = xJ + 1
            Next
        Next
    Next
     Application.ScreenUpdating = True
End Sub



Por favor, inténtalo, ¡espero que te pueda ayudar!
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL