提取excel中的鏈接地址

Alt+F11

Sub test()
For Each cell In Range("A2:A48")
cell.Offset(0, 1) = cell.Hyperlinks(1).Address
Next
End Sub