Excel 在列中查找字符串并替换为其他文本

我有一根这样的绳子。[一整列条目，链接不同]

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

健美是一种身体修饰形式，包括剧烈的肌肉肥大。从事这项活动的人被称为健美运动员。在竞争性和专业性的健美运动中，健美运动员向评委会展示他们的体格，评委会根据他们的外表来打分。健美运动员通过减肥、油脂和鞣制或鞣制乳液的组合为比赛做准备，结合灯光使肌肉群的定义更加清晰

我需要搜索单元格中存在的任何http://并仅替换

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

与

---

搜索/替换向导可以为您执行此操作。只需按CTRL-H打开它，放入查找和替换字符串，将高级选项设置为不匹配整个单元格

下面是一个简短的宏版本，它可以做同样的事情：

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