标题：excel读取url 提取锚链接中地址 超链接url及邮箱以及如何批量去掉文章超链接

-------------------------------------------------------------------------------------------------------------------------------

时间：2010/1/27 16:27:14

-------------------------------------------------------------------------------------------------------------------------------

内容：

excel怎么提取超链接内容呢， 有时候在网站上复制文字 这些文字都是超链接的锚文字

里面含有文字信息 需要提出这些超链接 下面是方法

点击工具-宏-vb编辑器

双击左边的工作表1 在右边打开的对话框中输入宏内容

Sub ExtractHL()
    Dim HL As Hyperlink
    For Each HL In ActiveSheet.Hyperlinks
        HL.Range.Offset(0, 1).Value = HL.Address
    Next
End Sub

关闭这个vb编辑器

使用alt+ f8 快捷键 打开宏 点击运行

就会在右边出现这些文字的链接了

最后选择第一列的内容 连续使用 2次 ctrl+c  ，再按一次 enter键 就可以去掉左边的 文字的超链接了

Function GetURL(rng As Range) As String
    On Error Resume Next
    GetURL = rng.Hyperlinks(1).Address
End Function

    使用方法是在单元格中输入公式，假如单元格D6中含有超链接：

    =geturl(D6)

excel怎么提取超链接内容呢， 有时候在网站上复制文字 这些文字都是超链接的锚文字

里面含有文字信息 需要提出这些超链接 下面是方法

点击工具-宏-vb编辑器

双击左边的工作表1 在右边打开的对话框中输入宏内容

Sub ExtractHL()
    Dim HL As Hyperlink
    For Each HL In ActiveSheet.Hyperlinks
        HL.Range.Offset(0, 1).Value = HL.Address
    Next
End Sub

关闭这个vb编辑器

使用alt+ f8 快捷键 打开宏 点击运行

就会在右边出现这些文字的链接了

最后选择第一列的内容 连续使用 2次 ctrl+c  ，再按一次 enter键 就可以去掉左边的 文字的超链接了

Function GetURL(rng As Range) As String
    On Error Resume Next
    GetURL = rng.Hyperlinks(1).Address
End Function

    使用方法是在单元格中输入公式，假如单元格D6中含有超链接：

    =geturl(D6)