Macros útiles en excel

Convertir todas las celdas que contengan números como texto en números de verdad

Las columnas de algunos informes exportados a excel a veces contienen celdas formateados como texto que en realidad son números y eso impide utilizarlas en tablas dinámicas o bien simplemente sumar sus valores. La siguiente macro permite convertir de golpe todas ellas a un número de verdad.

Sub convert2numbers()
For Each r In Sheets("Datos").UsedRange.SpecialCells(xlCellTypeConstants)
If IsNumeric(r) Then
r.Value = CDec(r.Value)
r.NumberFormat = "0.00"
End If
Next
End Sub