将Excel中一个单元格的超链接拷贝到另外的单元格
怎么使用VBA语言完成如下功能：将Excel中一个单元格的超链接拷贝到另外一个单元格 --------------------编程问答--------------------
Dim hl As Hyperlink--------------------编程问答--------------------
If Sheet1.Range("A1").Hyperlinks.Count > 0 Then
Set hl = Sheet1.Range("A1").Hyperlinks(1)
Sheet1.Range("B1").Hyperlinks.Add Anchor:=Sheet1.Range("B1"), _
Address:=hl.Address, _
TextToDisplay:=hl.TextToDisplay
End If
补充：VB , VBA
