Necesito reemplazar "*" asteriscos

[3pies]

Si quieres un macro, puedes probar esto:

Código:

Sub quitar_asteriscos()
'Nos situamos en la primera celda con datos
Range("A1").Select
'recorremos para abajo fila a fila,
'hasta encontrar una vacía
Do While Not IsEmpty(ActiveCell)
    'reemplazamos los asteriscos por nada,
    'o lo que es lo mismo, los quitamos :-)
    'siempre y cuando no estemos en una fórmula
    If Left(ActiveCell.Formula, 1) <> "=" Then
        ActiveCell = Replace(ActiveCell, "*", "")
    End If
    'bajamos una fila
    ActiveCell.Offset(1, 0).Select
Loop
End Sub

Salu2