Necesito reemplazar "*" asteriscos

[chascomusnet]

Hola, tengo un problema en excel y no sé como resolverlo, de una lista necesito reemplazar o eliminar todos los signos *.

[Omura]

no he probado con otras versiones pero revisando en el Excel 2003 podrías hacerlo de forma simple usando sustituir(), digamos...

1.....A..........B....
2..texto*...texto.......=sustituir(a2;"*";"")
3..t*xto.....txto
4..te*to.....teto

[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

[chascomusnet]

Solucionado, Un millón de gracias.