2014-01-10 159 views
0

新的文本说我有一个列出了几个名字和超链接表:复制超链接在Excel

NAME  AGE 
Trout  21 
Gomez  28 
McCutchen 26 

每个名字是一个网站的超链接。有没有办法将所有这些超链接复制到一个新的专栏,这个专栏写着点击这样的标准?然后我会从它们的名称剥离链接:

NAME  AGE  LINK 
Trout  21  Here 
Gomez  28  Here 
McCutchen 26  Here 

基本上我想要干净的名字,但保留在一个单独的列中的链接。或者,我可以复制链接的名称,并对文本进行某种批量更改?不知道该怎么做,我有很多名字...

注:我试过HYPERLINK()公式,但它不会打开网页,而名称。

+0

[可能的复制(http://stackoverflow.com /问题/ 5646549 /提取-A-URL从 - 超链接的文本功能于Excel的单元格) – kei

回答

0

使用一些在祺发布的链接中找到的信息,我想出了这个:

Sub extract_links() 
     Range("c1").Value = "link" 
     r = 2 
     Do While Not IsEmpty(Range("a" & r)) 
      Range("c" & r).Value = Range("a" & r).Hyperlinks(1).Address 
      r = r + 1 
     Loop 
     Columns("c:c").EntireColumn.AutoFit 
    End Sub 

我希望它能帮助〜