sub test()
Dim hyl As Hyperlink
For Each hyl In Sheet1.Hyperlinks
hyl.Delete
Next
end sub

或者是

Dim c As Range
For Each c In ActiveSheet.UsedRange
c.Hyperlinks.Delete
Next

面对高精端的技术的发展，测试绝对不是简单的点点的，它也要求你提高工作效率降低人力资源的浪费，减少工作时间的，即提高工作效率，这就对测试工作者，提出了一个要求，也是中国现在一个很严峻的问题，那就是如何提高测试工作者的素质即HOW！！！我也想了很多，也找的了适合自己的方法那就是，先做好一项工作，做通做熟，可以达到融会贯通的境地了，你才可能找到当中的规律，通过不断的实践，突破你自己的瓶颈，找到解决问题的快捷方法，形成自己的理论体系，形成自己的处理问题，工作的方法，我想这时的你将会十分与众不同的，猎头将会紧咬你不放的，也就是咱端好饭碗的本事，加油啊。。。