sheet1.hpyerlinks.add添加超链接，提取超链接的地址

worksheets（）.hyperlinks.add anchor：添加超链接的位置【1】，超链接打开的地址【2】，子地址（这里省略），提示【3】，显示内容【4】。

Sub k()

Dim rng As Range

For Each rng In Range("a1:a2")
Worksheets("baocun").Hyperlinks.Add rng(1, 2)【1】, rng.Value【2】, , "hehe",【3】 "dakai"【4】
Next

End Sub

Sub ku()
Dim hl As Hyperlink ‘将hl定义为超链接’
For Each hl In Worksheets("baocun").Hyperlinks‘对于每个在工作表baocun中的超链接中的hl’
hl.Parent(1, 2) = hl.Address‘提取hl的父级（单元格，将其右边的单元格的值填充为hl的地址）’
Next hl
End Sub