Excel 中超链接转换为相应的 URL

---

1、Excel 文件->选项->自定义功能区->打开开发工具

2、新建 VB 工程，在 Sheet1 处右击插入模块，将如下代码拷贝到模块中并保存一下（Ctrl+S）

Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next
End Sub

3、按 F5 ，并点击运行，即可把 URL 在超链接右侧提取出来(注意右侧要事先预留出相应的位置)

4、参考资料：https://howtouseexcel.net/how-to-extract-a-url-from-a-hyperlink-on-excel