Excel如何批量提取超链接?

发布网友发布时间：2022-04-23 10:20

我来回答

共5个回答

热心网友时间：2023-06-26 00:15

方法如下|：

第一步如图：

第二步选中按确定，如图：

第三步将相关经验网页的文字和连接复制到excel工作表格中，如图：

第四步我们要录制一个新宏，宏的名称叫做jinagyan。路径：菜单栏--工具--宏--录制新宏，如图：

第五步录制新宏后编辑一下，点击菜单栏--工具--宏--宏，找到选择刚才录制的新宏，点击编辑，然后在弹出来的新窗口，将以下代码插入到里面，然后保存，如下图。

Sub jingyan()

Dim HL As Hyperlink

For Each HL In ActiveSheet.Hyperlinks

HL.Range.Offset(0, 1).Value = HL.Address

End Sub

最后一步，点击菜单栏--工具--宏--宏。找到录制的新宏jingyan，然后点击运行，连接全部会显示在表格的右边。

热心网友时间：2023-06-26 00:16

在C列使用函数，=HYPERLINK(B1,A1),，然后再把C列的内容复制到A列

热心网友时间：2023-06-26 00:16

确保宏可以启用。在此Excel中同时按Alt和F11，进入宏界面，点菜单的插入，模块，粘贴如下代码：
Sub test()
For Each cell In Range("A2:A48")
cell.Offset(0, 1) = cell.Hyperlinks(1).Address
Next
End Sub
把A2:A48改为你实际有超链接的单元格区域，直接按F5运行此宏，在对应的右边一格出现超链接地址

热心网友时间：2023-06-26 00:17

选定所有超链接，复制，再选定A列的标题，点鼠标右键，选择性粘贴，运算中选“加”，确定。

之后，A列均带有超链接（不再显示地址）。

热心网友时间：2023-06-26 00:17

确保宏启用此Excel同时按Alt和F11进入宏界面点菜单插入模块粘贴下代码：
Sub test()
For Each cell In Range("A2:A48")
cell.Offset(0, 1) = cell.Hyperlinks(1).Address
Next
End Sub
把A2:A48改实际有超链接单元格区域直接按F5运行此宏对应右边格出现超链接地址