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 中的超链接地址。
