xls中分离超链接的文本和链接

Sub splitlink()

On Error Resume Next
For Each cell In Range("K109:k154")
cell.Offset(0, 1) = cell.Hyperlinks(1).Address
Next

End Sub