¿Cómo ajustar automáticamente la altura de fila de celdas combinadas en Excel?
En Excel, ajustar la altura de fila de forma rápida y precisa es fundamental para presentar sus datos con claridad. Normalmente, puede utilizar la función Autoajustar altura de filapara ajustar automáticamente la altura de una fila al contenido de sus celdas. Sin embargo, al trabajar con celdas combinadas, es posible que observe que Autoajustar altura de filaNo responde como se espera. La función Autoajustar de Excel ignora por completo las celdas combinadas, por lo que no puede ajustar automáticamente la altura de la fila al contenido en estos casos. Como resultado, normalmente debe modificar manualmente la altura de cada fila que contiene celdas combinadas para asegurarse de que todo el contenido sea visible, lo que puede resultar tedioso y propenso a errores, especialmente cuando trabaja con muchas celdas combinadas.
Este artículo presenta varios métodos prácticos para ayudarle a ajustar automáticamente el Altura de fila de Combinada de forma eficaz, ahorrándole tiempo y ayudándole a mantener una hoja de cálculo limpia y legible:
Ajuste automático del Altura de fila de Combinada con código VBA
Utilice Ajustar texto y ajuste manualmente
Ajuste automático del Altura de fila de Combinada con código VBA
Suponga que su hoja de cálculo contiene varias Combinada con cantidades variables de contenido, como se muestra en la captura de pantalla siguiente. Si desea que todos sus datos sean completamente visibles sin tener que ajustar manualmente cada fila, puede utilizar una solución basada en código VBA para ajustar automáticamente el Altura de fila al contenido de cada celda combinada de forma simultánea. Este método resulta especialmente útil cuando tiene muchos rangos combinados en toda la hoja o cuando el contenido de las celdas combinadas se actualiza con frecuencia y desea agilizar el proceso de ajuste.
Antes de ejecutar cualquier código VBA, recuerde guardar su libro como un archivo habilitado para macros para evitar la pérdida de trabajo no guardado. VBA es un método seguro proporcionado por Excel, pero asegúrese de que las macros estén habilitadas y de que la configuración de seguridad de su sistema permita la ejecución de macros.
1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y, a continuación, copie y pegue el siguiente código en la ventana del módulo:
Código VBA: Ajuste automático del Altura de fila de varias CombinadaOption Explicit
Public Sub AutoFitAll()
Call AutoFitMergedCells(Range("a1:b2"))
Call AutoFitMergedCells(Range("c4:d6"))
Call AutoFitMergedCells(Range("e1:e3"))
End Sub
Public Sub AutoFitMergedCells(oRange As Range)
Dim tHeight As Integer
Dim iPtr As Integer
Dim oldWidth As Single
Dim oldZZWidth As Single
Dim newWidth As Single
Dim newHeight As Single
With Sheets("Sheet4")
oldWidth = 0
For iPtr = 1 To oRange.Columns.Count
oldWidth = oldWidth + .Cells(1, oRange.Column + iPtr - 1).ColumnWidth
Next iPtr
oldWidth = .Cells(1, oRange.Column).ColumnWidth + .Cells(1, oRange.Column + 1).ColumnWidth
oRange.MergeCells = False
newWidth = Len(.Cells(oRange.Row, oRange.Column).Value)
oldZZWidth = .Range("ZZ1").ColumnWidth
.Range("ZZ1") = Left(.Cells(oRange.Row, oRange.Column).Value, newWidth)
.Range("ZZ1").WrapText = True
.Columns("ZZ").ColumnWidth = oldWidth
.Rows("1").EntireRow.AutoFit
newHeight = .Rows("1").RowHeight / oRange.Rows.Count
.Rows(CStr(oRange.Row) & ":" & CStr(oRange.Row + oRange.Rows.Count - 1)).RowHeight = newHeight
oRange.MergeCells = True
oRange.WrapText = True
.Range("ZZ1").ClearContents
.Range("ZZ1").ColumnWidth = oldZZWidth
End With
End Sub
Notas:
(1.) Si necesita ajustar más rangos combinados, simplemente copie la línea Call AutoFitMergedCells(Range("a1:b2")) tantas veces como sea necesario y actualice la dirección de cada rango combinado que quiera ajustar automáticamente.
(2.) Recuerde cambiar Hoja4 en el script para que coincida con el nombre de la hoja de cálculo donde se encuentran sus combinaciones. Si no está seguro del nombre de su hoja de cálculo, consulte las pestañas de hoja en la parte inferior de la ventana de Excel.
(3.) Al ejecutar macros, asegúrese de que ninguna celda que contenga datos críticos o confidenciales se incluya inadvertidamente en el Seleccionar rango, para evitar cambios de formato inesperados.
3. Pulse la tecla F5 para ejecutar este código. Tras la ejecución, todas las filas combinadas especificadas ajustarán automáticamente su altura de fila para mostrar completamente el contenido de las celdas, tal como se ilustra a continuación:
Esta solución basada en VBA ofrece una forma cómoda y automatizada de gestionar el tamaño de las celdas combinadas. Sin embargo, requiere acceso a la pestaña Programador y permiso para ejecutar macros; tenga esto en cuenta si colabora en entornos donde las macros están deshabilitadas o restringidas.
Utilice Ajustar texto y ajuste manualmente
En muchos escenarios, puede combinar la función Ajustar texto con un rápido ajuste manual del Altura de fila para garantizar que todo el contenido sea claramente visible sin depender de VBA ni de herramientas complejas.
Paso 1: Habilitar Ajustar texto
- Seleccione la(s) celda(s) combinada(s) que desea formatear.
- Vaya a la pestaña Inicio y haga clic en Ajustar texto en el grupo Alineación.
Esto permitirá que el contenido se ajuste automáticamente en Salto de línea dentro del área combinada.
Paso 2: Compruebe la visualización y ajuste manualmente el Altura de fila si es necesario
Si su texto no es muy largo, es posible que ahora encaje perfectamente en la celda combinada.
Si el contenido es más largo y aún no se muestra completamente, arrastre manualmente el límite de la fila situada bajo la celda combinada para aumentar el Altura de fila hasta que todo el contenido sea visible.
Artículo relacionado:
¿Cómo ajustar automáticamente el Ancho de columna en Excel?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos