Hola p@co, buen dÃa. Mira, lleva a cabo los siguientes pasos:
Crea una lista parecida a ésta en tu documento de Excel:
NOMBRES NÚMEROS
Panchita
Petra
Fulana
p@co 10
Floripundia
Mastuerza
Ahora abre el editor de Visual basic e REPLACEa el siguiente código:
Sub CochinaMacro()
Cells.Find(What:="p@co", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate
ActiveCell.Value = 10
End Sub
Espero y esto te ayude. Nos vemos.