要再恢复
一、双击单元格，会根据内容自动生成超链接。
这种情况适用于内容比较少的情况
二、采用宏
注意：用以下的宏代码，需要修改：1）单元格位置，代码中是“A”列 2）超链接的开头，网址是http://,邮件是mailto:，文档是file:///
Sub 恢复超链接()
For i = 2 To 1073
strValue = CStr(Range("A" & i))
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:="http://" & strValue, TextToDisplay:=strValue
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除！