快速批量导出excel超链接

Posted 2022-10-15 gcygeeker

目录

• 背景
• 测试表格
• 操作步骤
• • 第一步：选中要导出的单元格或行列，点击菜单 工具->宏->Visual Basic编辑器
  • 第二步：在打开的Visual Basic编辑器中点击菜单 插入->模块
  • 第三步：将下面代码复制到刚才创建的模块文本框中，如下图所示
  • 第四步：点击上图蓝色三角，在弹出的窗口中直接点击“运行”按钮，即可导出选中区域的超链接
• 注意

---

背景

最近遇到一个要把excel表格中，包含超链接的某列批量导出超链接的问题，经过查资料和尝试，找到一种简易可行的方法，现在分享给大家。

测试表格

我们测试的excel表格长这个样子：

操作步骤

第一步：选中要导出的单元格或行列，点击菜单 工具->宏->Visual Basic编辑器

第二步：在打开的Visual Basic编辑器中点击菜单 插入->模块

第三步：将下面代码复制到刚才创建的模块文本框中，如下图所示

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

第四步：点击上图蓝色三角，在弹出的窗口中直接点击“运行”按钮，即可导出选中区域的超链接

注意

本人使用mac系统下的excel进行演示截图，如果是windows系统，菜单和操作可能会有细微的差别，但总体流程和代码不会变。

参考资料1