可以用VBA来做：
按Alt+F11打开VBA编辑器，插入——模块，将下面的代码粘贴进去，按F5运行就可以了：
Sub
aa()
For
Each
s
In
ActiveSheet.Shapes
s.Hyperlink.Delete
Next
End
Sub
Sub
aa()
Dim
sht
As
Worksheet
Dim
shp
As
Shape
For
Each
sht
In
Sheets
For
Each
shp
In
sht.Shapes
shp.Hyperlink.Delete
Next
Next
End
Sub
用上面的宏可以去掉，原理请自行研究，一两句话解释不清。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024