найти строку в столбце и заменить другим текстом

Question

У меня есть строка, подобная этой. [Целый столбец записей, ссылки отличаются]

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

Бодибилдинг является одной из форм модификации тела с участием интенсивной гипертрофии мышц. Человек, который участвует в этой деятельности, называется культуристом. В соревновательном и профессиональном бодибилдинге культуристы демонстрируют свои физические упражнения в судейской коллегии, которые назначают очки на основе их внешнего вида. Бодибилдеры готовятся к соревнованиям с помощью комбинации потери жира, масел и загара (или лосьоны для загара), которые в сочетании с освещением делают определение мышц более четким ».

мне нужно искать любой "http://", находящейся внутри клетки и заменить только

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

с

"<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

ищущейся/ЗАМЕНИТЬ мастер может сделать это для вас. Просто нажмите CTRL-H, чтобы открыть его и положить в FIND и замены строк, установите ДОП не совпадают целые клетки ...

Вот короткая макро версия, которая делает то же самое:

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