vba,excel,网址提取名字与链接url

'宏操作

Sub 复制超级链接()

For a =  To  '这里控制读取A列的第1到10行，你根据自已的要求修改一下起始和结束行数
    If Cells(a, ).Hyperlinks.Count >  Then Cells(a, ).Value = Cells(a, ).Hyperlinks.Item().Name

    If Cells(a, ).Hyperlinks.Count >  Then Cells(a, ).Value = Cells(a, ).Hyperlinks.Item().Address

Next

End Sub
'自定义公式法
Function geturl(c As Range) As String
    geturl = c.Hyperlinks().Address
End Function

Function getname(c As Range) As String
getname = c.Hyperlinks().Name
End Function