it-swarm.dev

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

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

22
Manga Lee

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

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

Seleccione la fila.

En Microsoft Office Excel 2003 y en versiones anteriores de Excel, seleccione Fila en el menú Formato y, a continuación, haga clic en AutoFit.

En Microsoft Office Excel 2007, haga clic en la pestaña Inicio, haga clic en Formato en el grupo Celdas y, a continuación, haga clic en AutoFit Row Height.

También funciona cuando todas las filas están seleccionadas.

24
vaichidrewar

Tratar

Seleccione la columna -> haga clic con el botón derecho en la columna -> Formato de celdas -> pestaña Alineación -> Ajustar texto

10
hyperslug

Tenga en cuenta que la adaptación automática no funciona en celdas combinadas. Tienes que hacerlo de forma manual.

Vea esta respuesta de Microsoft:

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

4
abruti

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

2
Lance Roberts

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 12/28/2014 harían que el encabezado muestre una advertencia de que estas fechas, en una hoja de tiempo, entraría en la Semana 1 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
0
Mickg01

¿Sabes macro? Ponga el siguiente código en

Application.ActiveCell.WrapText = True

dentro de su subrutina WorkCheet_SelectionChange.

0
Toc

Una solución VBA es usar lo siguiente:

 Call Application.ActiveCell.AutoFit
0
richardtallent

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

0
simpleuser