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

定义

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

使用的工具

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

[3]用函数GetAdrs获取网址。

首先左键单击选中【B1】单元格，键入自定义函数【=GetAdrs(A1)】，按回车键进行计算。将鼠标指针移动至【B1】单元格右下角，当鼠标指针变成【+】号后，长按鼠标左键并向下拖动进行公式填充。

最终效果

发现无法保存

带有宏的excel会发现无法保存为.xlsx，每天用这个文档都要重新设置一遍。怎么解决呢？

另存为.xlsm格式即可