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

SEARCH / REPLACE向导可以为您完成此操作。只需按CTRL-H打开它并输入你的FIND和REPLACE字符串，将ADVANCED OPTIONS设置为不匹配整个单元格......

这是一个做同样事情的短宏版本：

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

在列中查找字符串并替换为不同的文本

1 个答案: