excel批量提取超链接中的地址
发布时间：2023-06-20 18:47:58
标签：代码,单元格,地址,超链接,Excel函数
如果Excel表格单元格中包含有许多用文本形式显示的超链接，如“给我发邮件”、“访问我的网站”等，要逐一查看所有超链接的地址，用手工的方法显得太繁琐，我们可以用自定义函数来批量提取这些超链接中的地址，将下列代码插入到标准模块中：
Function GetURL(rng As Range) As String
On Error Resume Next
GetURL = rng.Hyperlinks(1).Address
End Function
使用方法是在单元格中输入公式，假如单元格D6中含有超链接：
=geturl(D6)
还可以使用下面的代码将工作表中的所有超链接地址全部显示出来，运行代码前先备份工作簿，因为它会在含有超链接的单元格的右侧显示其地址，有可能会破坏工作表结构。
Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next
End Sub
0
投稿猜你喜欢
- 不少朋友都遇到过，在Windows系统中的驱动程序更新之后，反倒是会出现设备异常的情况，那么遇到这样的情况，咱们要如何处理呢?下面，咱们就以
在Word中一个汉字字符占两个空格（半角）或一个空格（全半角）。1、Word中一个汉字字符占两个空格（半角）。2、Word中一个汉字字符占一- 在我使用win10系统时，经常会遇到DLL注册失败的问题，因此DLL对win10系统非常重要。如果我们可以在右键菜单中添加“register
- 使用网页出现打不开的问题，需要切换设置兼容模式打开才行，那么win11网页兼容性怎么设置？下面跟着小编一起来看看，win11网页兼容性设置技
- 在使用电脑系统的时很多用户喜欢将任务栏放在窗口的顶部，但是在Win11最近的版本中，当任务栏位于顶部时，如果打开了多个资源管理器窗口，将鼠标
- 各人好， 咱们在 事情 傍边， 偶然候人名排序的 时分是按拼音 次第排序的， 那末 咱们 需求别种 方法， 好比 根据 笔画来排序的话，该
- 想将应用图标修改为 Big Sur 风格吗？Acon 是一款制作 Big Sur 风格图标的App，简单美观的设计界面，使用简单方便，通过
- 蓝牙鼠标可以很好的控制操作电脑，小巧随身携带也很方便，有小伙伴问Win10蓝牙鼠标连接不上电脑怎么办？接下来下面给大家带来2种解决方法，希望
- 电脑蓝屏怎么处理，今天教大家如果电脑老是蓝屏该如何解决。 电脑引起蓝屏可分为两类：第一种、硬件故障导致蓝屏硬盘损坏导致电脑蓝屏，如硬盘有坏道
- 怎么关闭win7的开机自检？相信许多小伙伴还在使用win7操作系统的电脑，不知道你们的电脑是不是每次开机都会进行自检，导致开机速度变得非常的
- 小米笔记本Win10改Win7怎么操作？有用户习惯使用Win7系统了，于是想要将新购置的小米笔记本上的预装Win10系统改为Win7，那么应
- 微软宣布1月12日将停止支持IE8、IE9和IE10这三款浏览器。微软也会在当天给这三款浏览器放出KB3123303补丁，安装后用户会看到升
- 删除文件时，被删除的文件一般都会放进回收站中，还要去清空回收站很麻烦，如何直接删除文件不进入回收站呢？电脑系统怎么直接彻底删除文件？其实操作
- 用户如果要为Windows8系统C盘分区重命名的时候发生“无法修改名称”问题，可以按照下面的方法来改变名称。操作步骤1、 按“Win+R”输
- 为了更好的了解Windows系统对此问题的收集与处理，就会弹出一个错误报告的对话框，下面为大家介绍下既无需禁用Windows错误报告，也不用
- WPS表格文字如何快速进行排版呢，新手不会，上网找怕麻烦，而且教程太乱没有统一的答案怎么办,哪里有更好的方法?下面小编马上就告诉大家WPS表
- win10文件后缀名怎么修改？电脑使用的过程中我们会接触到各种各样的文件格式，由于一些特殊的需要，有时候我们需要对win10文件后缀名进行修
- 最近有用户反应电脑默认升级系统以后，电脑出现了很多的弹窗资讯，这让很多用户很多烦，解锁电脑看到右下角多了个日历，由Microsoft 资讯提
- 什么是 Windows 10 飞行模式?用户如何打开或关闭 Windows 10 中的飞行模式呢?如果飞行模式开关被卡住、变灰或不工作时该怎
- 现在我们办公都需要用到打印机，安装打印机就必须要有打印机驱动，但是有用户询问在驱动安装完成后有很多还是不知道怎么去添加打印机，为此今天专门给
