打开宏（ALT+F11）

新建宏模块

Function GetAdrs(Rng)

Application.Volatile True

With Rng.Hyperlinks(1)

GetAdrs = IIf(.Address = "", .SubAddress, .Address)

End With

End Function


543e9756e583db7a48f4c332623f8f623376.gif

然后使用公式

==GetAdrs(A1)

769597b3a17b9a4aaf72c078d397ccd71217.gif


下拉填充