可以用VBA来做：按Alt+F11打开VBA编辑器，插入——模块，将下面的代码粘贴进去，按F5运行就可以了：Sub aa()For Each hl In ActiveSheet.Hyperlinkshl.DeleteNext hlEnd Sub来源于网络
