Macro para cambiar Punto por Coma y convertir número a formato númerico

En algunas ocasiones, al importar datos a una planilla Excel, los número quedan almacenado como texto. Además, tienen al punto como separador de decimales, cuando nosotros utilizamos la coma.

Para resolver este problema, una sencilla macro nos permite remplazar el punto por una coma, y dejar convertidos los números almacenados como texto en números normales.

Sub PuntoComa()
Dim celda As Range
Selection.NumberFormat = "@"
For Each celda In Selection
   celda.Value = CDbl(Replace(celda.Value, ".", ","))
Next
End Sub

La macro, realizará la operación sobre las celdas seleccionadas. Si deseas realizar la operación a la inversa, solo modifica la macro a tu gusto.