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
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