Excel - Replace en Excel varios a la vez.

Hola, en primer lugar un saludo, para todos a continuación os cuento mi problema... tengo en una columna de excel varios valores por ejemplo Madrid, Barcelona, Valencia... que se repiten en toda la columna, quiero reemplazar cada uno por un valor, por ejemplo Madrid por 1. Barcelona por 5, Valencia por 8, etc... utilizo la funcion replace:

Selection.Replace What:="Madrid", Replacement:="1", LookAt:=xlWhole, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

como el total de mis valores es muy extenso, ¿hay alguna forma de no tener que escribir la funcion para cada uno de los valores que quiero reemplazar? lo que quiero evitar es escribir la funcion para cada valor, o se esto:

Selection.Replace What:="Madrid", Replacement:="1", LookAt:=xlWhole, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="Barcelona", Replacement:="5", LookAt:=xlWhole, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="Valencia", Replacement:="8", LookAt:=xlWhole, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Que es lo unico que se me ha ocurrido hasta ahora.... gracias a todos por vuestra ayuda...

Un cordia saludo...

Respuesta dada en emagister

Abraham

Utiliza una función "Si anidada" o puedes generar una macro tambien utilizando la función "Si".

Saludos