本文演示文档包含超链接。如图 
先尝试使用trim和clean函数，=substitute(a1,char(9),"")公式。效果完全一致，超链接被删除。如下图 
再次使用搜索引擎，网友给出建议，先提取超链接，删除空格后重新复制回表格。继续接上文操作。
首先创建宏。点击视图选项卡-宏-录制宏-给宏取名-确定。本文宏名称提取表格超链接。
再次点击宏-查看宏-编辑。
宏代码如下所示
Sub 提取表格超链接()
'
' 提取表格超链接 宏
Columns("B:B").EntireColumn.AutoFit
ActiveWindow.SmallScroll Down:=-6
Application.Goto Reference:="'2019中国综合类大学排名.xlsx'!提取表格超链接"
'
For Each cell In Range("A1:A25")
cell.Offset(0, 1) = cell.Hyperlinks(1).Address
Next
End Sub
#注意不要超界 本文表格为A1-A25
#注释内容可以不复制点击F5或绿色按钮运行宏代码。
提取结果如图所示
D1单元格使用hyperlink函数。如下图
