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.