Aplicar formato a una columna de Excel

En algunos casos cuando se traen datos a Excel, hay columnas que tienen en un formato, pero cuando le aplicamos otro o una fórmula , a veces no lo toma sino hasta cuando damos enter en cada celda, lo que lógicamente es muy engorroso si son muchos datos.

Esta pequeña macro se encarga de dar solución a este inconveniente. En este ejemplo, el proceso se realiza para la columna "G", pero puede ser modificada para cualquier columna que queramos:

Sub formato()

f = 1

c = "G"

rango = columna & fila

While (Sheets(1).Cells(fila, 1).Value <> ""

Range(rango).Select

ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1

f = f + 1

rango = c & f

Wend

End Sub

Esta macro recorre una a una todas las filas de la columna G, aplicando de nuevo el valor o fórmula en ella, simulando el efecto del enter para aplicar el formato. 


Esta operación nos ayuda a simplificar un proceso que puede ser largo y tedioso.