通过将链接模板与单元格中的文本串联来创建超链接-Excel VBA

Question

我正在尝试将其中包含文本的列转换为超链接。这些列将包含我想在链接模板末尾添加的信息。例如，假设：

 "/stackoverflow.com/" is my link template
 Range("A2") = "a_two" and Range("A3") = "a_three" 

我想将单元格A2和A3转换为超链接并将URL设置为      “ /stackoverflow.com/a_two”和      分别为“ /stackoverflow.com/a_three”。我怎样才能做到这一点？

谢谢

Answer 1

      Dim r as range
      For each r in selection
          activesheet.hyperlinks.add Anchor:=r,Address:="/stackoverflow.com/" & r.text
      next r