Sub ExtractHyperlinkAddress() Dim hyperlink_range As Range For Each hyperlink_range In Selection If hyperlink_range.Hyperlinks.Count > 0 Then MsgBox hyperlink_range.Hyperlinks(1).Address End If End Sub

关闭 VBA 编辑器，返回 Excel。在您需要提取超链接地址的单元格区域内选中相应的单元格。

按下 ALT+F8 打开宏窗口，选择“ExtractHyperlinkAddress”，单击“运行”按钮。

根据提示，按照您的需求提取超链接地址。

希望以上信息能够帮助您提取 Excel 中的超链接地址。