定义
超链接=网页标题+地址栏
使用的工具
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 TrueWith Rng.Hyperlinks(1)GetAdrs = IIf(.Address = "", .SubAddress, .Address)End With
End Function
[3]用函数GetAdrs获取网址。
首先左键单击选中【B1】单元格，键入自定义函数【=GetAdrs(A1)】，按回车键进行计算。将鼠标指针移动至【B1】单元格右下角，当鼠标指针变成【+】号后，长按鼠标左键并向下拖动进行公式填充。
最终效果
发现无法保存
带有宏的excel会发现无法保存为.xlsx，每天用这个文档都要重新设置一遍。怎么解决呢？
另存为.xlsm格式即可
