Tengo una celda con contenido de texto envuelto en Excel y quiero darle formato a la celda para que su altura se ajuste al contenido que puede abarcar varias líneas. ¿Cómo puedo lograr este comportamiento?
Desde http://support.microsoft.com/kb/149663
Para ajustar la altura de la fila para que quepa todo el texto de una celda, sigue estos pasos:
Selecciona la fila.
En Microsoft Office Excel 2003 y en versiones anteriores de Excel, apunta a Fila en el menú Formato y luego haz clic en Autoajustar.
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 Autoajustar altura de fila.
También funciona cuando todas las filas están seleccionadas
Tengan en cuenta que el autoajuste no funciona en las células fusionadas. Tienes que hacerlo manualmente.
Mira esta respuesta de Microsoft: No puedes usar la característica de Autoajuste para filas o columnas que contengan celdas combinadas en Excel
Si no lo hace automáticamente, entonces coloque su cursor sobre la pequeña línea entre los números de las filas (ej: entre 1 y 2) y haga doble clic, esto redimensionará la fila (directamente encima de la pequeña línea, en el ejemplo: 1) para que todo sea visible (desde un aspecto vertical).
La única manera de que funcione como se espera es resaltar toda la hoja con CTRL-A, desclasificar el botón “Envolver el texto” en la barra de herramientas, y luego volver a seleccionarlo. No hay otros ajustes que cambiar, pero cada fila es ahora la altura “adecuada” para su contenido.
Una solución VBA es usar lo siguiente:
Call Application.ActiveCell.AutoFit
Creé el siguiente código VB para redimensionar la fila del encabezado cuando una celda dentro de un rango (B2:B1500) porque los valores de las fechas por encima del 28/12/2014 harían que el encabezado mostrara una advertencia de que estas fechas, en una hoja de horas, irían a 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