¿Cómo puedo obtener una celda en Excel para ajustar automáticamente su altura para que se ajuste al contenido del texto envuelto? [duplicar]

23

Tengo una celda con contenido de texto envuelto en Excel y quiero formatear la celda para que su altura se ajuste al contenido que puede abarcar varias líneas. ¿Cómo puedo lograr este comportamiento?

microsoft-excel microsoft-excel-2007

— Manga Lee
fuente

No estoy seguro acerca de Excel 2007, pero estoy usando Excel 2003 y eso va automáticamente, cuando ingreso datos de varias líneas en una celda, la altura de la línea se fija cuando presiono Intro.

— fretje

26

Desde http://support.microsoft.com/kb/149663

Para ajustar la altura de la fila para que se ajuste a todo el texto en una celda, siga estos pasos:

Selecciona la fila.

En Microsoft Office Excel 2003 y en versiones anteriores de Excel, seleccione Fila en el menú Formato y luego haga clic en Autoajuste.

En Microsoft Office Excel 2007, haga clic en la pestaña Inicio, haga clic en Formato en el grupo Celdas y luego haga clic en Ajustar altura de fila.

También funciona cuando se seleccionan todas las filas

— vaichidrewar
fuente

11

Tratar

Seleccione la columna -> columna de clic derecho -> Formato de celdas -> pestaña Alineación -> Ajustar texto

— hiperslug
fuente

2

La celda ya tiene este formato y quiero que la celda también ajuste su altura. Quiero que la altura de la fila de la celda se ajuste para que todo el contenido envuelto de la celda sea visible.

— Manga Lee

3

No estoy seguro de si puede hacer que esto suceda a medida que cambia el contenido de la celda, pero una vez que haya terminado, haga doble clic en el borde entre el número de fila y el siguiente debajo del tamaño automático para que se ajuste al contenido.

— Col

+1: Esta no es una mala respuesta. Si activa Wrap Texty desactiva de nuevo, Excel cambiará el tamaño de la altura de la fila para que se ajuste a la fila más alta. No es adecuado si la altura de las filas cambia dinámicamente, pero si se trata de texto estático, debería estar bien.

— Li-aung Yip

Funcionó para mí en Excel 2019.

— 猫 IT

4

Tenga en cuenta que el ajuste automático no funciona en celdas combinadas. Tienes que hacerlo de forma manual.

Vea esta respuesta de Microsoft:

No puede usar la función Autoajuste para filas o columnas que contienen celdas combinadas en Excel

— abruti
fuente

2

Si no lo hace automáticamente, coloque el cursor sobre la línea pequeña entre los números de fila (ej .: entre 1 y 2) y haga doble clic, esto redimensionará la fila (directamente sobre la línea pequeña, en el ejemplo: 1) para que todo sea visible (desde un aspecto vertical).

— Lance Roberts
fuente

Eso es algo que puede hacer cuando tiene poco de esto que hacer, pero cuanto más complejo sea, más tendrá que lidiar con eso y eso significa pérdida de tiempo y energía, rompiendo el enfoque y el impulso debido a tales tareas. La solución dada por Bertieb funciona de maravilla en Excel 2019.

— 猫 IT

0

¿Conoces macro? Pon el siguiente código en

Application.ActiveCell.WrapText = True

dentro de su subrutina Worksheet_SelectionChange.

— Toc
fuente

0

Una solución de VBA es usar lo siguiente:

 Call Application.ActiveCell.AutoFit

— richardtallent
fuente

0

La única forma en que puedo hacer que funcione como se espera es resaltar toda la hoja con CTRL-A, desmarcar el botón "Ajustar texto" en la barra de herramientas y luego volver a seleccionarlo. Ninguna otra configuración cambia, pero cada fila tiene ahora la altura "adecuada" para su contenido.

— usuario simple
fuente

0

Creé el siguiente código VB para cambiar el tamaño de la fila del encabezado cuando una celda dentro de un rango (B2: B1500) porque los valores de fecha superiores al 28/12/2014 harían que el encabezado mostrara una advertencia de que estas fechas, en una hoja de tiempo, entrarían Semana1 de 2015:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    ' The variable KeyCells contains the cells that will
    ' cause an Action when they are changed.
    Set KeyCells = Range("B2:B1500")

    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        ' Change the height of the header row when one of the defined cdlls is changed
        Rows("1:1").EntireRow.AutoFit

    End If
End Sub

— Mickg01
fuente