网页上的超链接复制到Excel中+提取出网址+如何保存

news2024/11/19 1:50:17

定义

超链接=网页标题+地址栏

使用的工具

2024年的WPS是不行的，

如果把知乎网页上的超链接复制到WPS中的Excel中，就会丢掉地址，只剩下网页标题

具体操作（转载,在Excel2013上验证可行）

[1]启用【开发工具】，具体步骤如下：左键单击菜单栏中的【文件】选项卡，然后左键单击【更多】，接着左键单击【选项】。左键单击【Excel 选项】中的【自定义功能区】选项，然后将【开发工具】前的小方格打上对勾，然后左键单击【确定】按钮，此时菜单栏中会多出一个选项【开发工具】。 step1：左键单击菜单栏中的【文件】选项卡，然后左键单击【更多】，接着左键单击【选项】。

step2：左键单击【Excel 选项】中的【自定义功能区】选项，然后将【开发工具】前的小方格打上对勾，然后左键单击【确定】按钮。

step3：查看菜单栏中是否多出一个选项【开发工具】。

[2]自定义一个VBA函数GetAdrs。首先左键单击【开发工具】选项，然后左键单击【代码】功能区中的【Visual Basic编辑器】。右键单击【工程资源管理器】窗口，将鼠标指针移动至【插入】选项，左键单击二级菜单中的【模块】选项，插入【模块1】，并将以下代码复制粘贴到【模块1】的代码窗口后，最后关闭Visual Basic编辑器。 step1：左键单击【开发工具】选项，然后左键单击【代码】功能区中的【Visual Basic编辑器】。

step2：右键单击【工程资源管理器】窗口，将鼠标指针移动至【插入】选项，左键单击二级菜单中的【模块】选项，插入【模块1】，并将以下代码复制粘贴到【模块1】的代码窗口后，最后关闭Visual Basic编辑器。

代码语言：javascript

复制

Function GetAdrs(Rng)
  Application.Volatile True
  With Rng.Hyperlinks(1)
    GetAdrs = IIf(.Address = "", .SubAddress, .Address)
  End With
End Function