rechercher une chaîne dans une colonne et la remplacer par du texte différent

Question

J'ai une chaîne comme celle-ci. [Une colonne entière d'entrées, les liens sont différents]

« http://en.wikipedia.org/wiki/Bodybuilding

Le culturisme est une forme de modification corporelle, impliquant une hypertrophie musculaire intense. Une personne qui Dans le bodybuilding compétitif et professionnel, les bodybuilders montrent leur physique à un panel de juges, qui attribuent des points en fonction de leur apparence.Les bodybuilders se préparent à la compétition par une combinaison de perte de graisse, d'huiles et de bronzage. (ou des lotions de bronzage) qui combinées avec l'éclairage rendent la définition du groupe musculaire plus distincte. "

J'ai besoin de rechercher tous les présents "http://" dans la cellule et de ne remplacer que la

"http://en.wikipedia.org/wiki/Bodybuilding"

avec

"<p><a title="http://en.wikipedia.org/wiki/Bodybuilding " href="http://en.wikipedia.org/wiki/Bodybuilding " target="_self">http://en.wikipedia.org/wiki/Bodybuilding </a></p>"

Answer 1

L'assistant SEARCH/REMPLACER peut le faire pour vous. Il suffit d'appuyer sur CTRL-H pour l'ouvrir et mettre dans votre FIND et REPLACE chaînes, définissez les options avancées pour les cellules entières correspondent pas ...

Voici une version courte macro qui fait la même chose:

Sub Replace() 

    Cells.Replace What:="http://en.wikipedia.org/wiki/Bodybuilding", _ 
     Replacement:="<p><a title=""http://en.wikipedia.org/wiki/Bodybuilding"" href=""http://en.wikipedia.org/wiki/Bodybuilding"" target=""_self"">http://en.wikipedia.org/wiki/Bodybuilding </a></p>", _ 
     LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False 

End Sub