作者:乔山办公网日期:
返回目录:excel表格制作
方法如下|:
第一步如图:
第二步选中按确定,如图:
第三步将相关经验网页的文字和连接复制到excel工作表格中,如图:
第四步zd我们要录制一个新宏版,宏的名称叫做jinagyan。路径:菜单栏--工具--宏--录制新宏,如图:
第五步录制新宏后编辑一下,点击菜单栏--工具--宏--宏,找到选择刚才录制的新宏,点击编辑,然后在弹出来的新窗口权,将以下代码插入到里面,然后保存,如下图。
Sub jingyan()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next
End Sub
最后一步,点击菜单栏--工具--宏--宏。找到录制的新宏jingyan,然后点击运行,连接全部会显示在表格的右边。
Sub 链接百()
Dim rng As Range
For Each rng In ActiveSheet.UsedRange
If rng.Hyperlinks.Count > 0 Then
rng.Offset(0, 1) = rng.Hyperlinks(1).Address
End If
Next
End Sub
如何使度用知请参道照楼内上回答容
非常快速的方来法:
这个链接提取工具,能批量一次性提取所有的超源链接地址:
htt-ps://it365.gitlab.io/zh-cn/link-finder/?d7572it365
复制百链接,粘贴到浏览器地址栏,链接前面度的htt-ps改为https再进去。
把Excel表格的内知容全部复制,粘贴到这个工具,然后全部的链接就提取出道来了。