Anónimo
¿Cómo ajustar texto automáticamente en celdas combinadas en Excel 2019?
Solicito amablemente su valiosa ayuda para ajustar automáticamente un rango de celdas de una columna, he intentado con la opción de ajuste autamático de filas, también con al opción de ajustar texto de la pestaña inicio e incluso con la siguiente macro pero nada funciona:
Sub AjustarAnchoDeCeldas()
Dim Rango As Range
Dim Fila As Range
' Definir el rango de celdas
Set Rango = ThisWorkbook.Sheets("Hoja1").Range("C23:C32")
' Ajustar la altura de cada fila del rango
For Each Fila In Rango.Rows
Fila.EntireRow.AutoFit
Next Fila
End Sub
1 Respuesta
Código para Ajustar Automáticamente el Ancho de las Columnas
vba
Sub AjustarAnchoDeCeldas()
Dim Rango As Range
Dim Columna As Range
' Definir el rango de celdas
Set Rango = ThisWorkbook.Sheets("Hoja1").Range("C23:C32")
' Ajustar el ancho de cada columna en el rango
For Each Columna In Rango.Columns
Columna.EntireColumn.AutoFit
Next Columna
End Sub
Cómo Funciona:
- La macro define el rango de celdas que quieres ajustar (C23:C32 en Hoja1).
- Luego, recorre cada columna dentro del rango y ajusta automáticamente el ancho usando Columna. EntireColumn. AutoFit.
Ajustar la Altura de Filas (para referencia adicional)
Si necesitas ajustar también la altura de las filas, puedes combinar ambos ajustes en la misma macro. Aquí tienes un ejemplo que ajusta tanto el ancho de las columnas como la altura de las filas:
vba
Sub AjustarAnchoYAltoDeCeldas()
Dim Rango As Range
Dim Columna As Range
Dim Fila As Range
' Definir el rango de celdas
Set Rango = ThisWorkbook.Sheets("Hoja1").Range("C23:C32")
' Ajustar el ancho de cada columna en el rango
For Each Columna In Rango.Columns
Columna.EntireColumn.AutoFit
Next Columna
' Ajustar la altura de cada fila en el rango
For Each Fila In Rango.Rows
Fila.EntireRow.AutoFit
Next Fila
End Sub
Este código ajusta tanto el ancho de las columnas como la altura de las filas para el rango especificado.
Hola gracias de antemano por tu colaboración, la macro funciona para ajustar la columnas, sin embargo, lo que yo necesito es ajustar el ancho de la fila para que la celda se estire hacia abajo y se pueda visulaizar todo el texto que contiene, he ajustado la macro para que solo ajuste las filas pero no funciona, cabe resalta que la celda esta combinada con 4 columnas.
Sub AjustarAlturaDeCeldasCombinadas()
Dim Rango As Range
Dim Fila As Range
' Definir el rango de celdas
Set Rango = ThisWorkbook.Sheets("Hoja1").Range("C23:C32")
' Ajustar la altura de cada fila del rango
For Each Fila In Rango.Rows
' Ajustar la altura de la fila actual considerando las celdas combinadas
Fila.Cells(1, 1).Resize(1, Fila.Columns.Count).WrapText = True
Fila.Cells(1, 1).Resize(1, Fila.Columns.Count).Rows.AutoFit
Next Fila
End Sub
Gracias, lo he ejecutado pero sigue sin funcionar. :(
Prueba esto, es ayuda de Copilot:
¡Entiendo tu problema! Ajustar la altura de las filas para celdas combinadas puede ser complicado en Excel. Aquí tienes una versión modificada de tu macro para que ajuste la altura de las filas teniendo en cuenta las celdas combinadas:
vba
Sub AjustarAlturaDeCeldasCombinadas()
Dim Rango As Range
Dim Fila As Range
' Definir el rango de celdas
Set Rango = ThisWorkbook.Sheets("Hoja1").Range("C23:C32")
' Ajustar la altura de cada fila del rango
For Each Fila In Rango.Rows
' Ajustar la altura de la fila actual considerando las celdas combinadas
With Fila.Cells(1, 1).MergeArea
.WrapText = True
.Rows.AutoFit
End With
Next Fila
End Sub
Con esta macro, se asegura de que el ajuste automático de altura (AutoFit) se aplique a toda el área combinada (MergeArea) de las celdas. Prueba este código y debería ajustarse adecuadamente para mostrar todo el texto dentro de las celdas combinadas.