Question

求EXCEL高手！怎么批量删除EXCEL里面的超级链接图标。

多谢下楼的回答。用这种方法（点中左下角的一个 空心 箭头 (在绘图工具栏里面)，然后 用鼠标 框选 Delete 就好了）确实可以删除超级链接。多谢！但我每个表格里面都有图标。一个一个删除工作量之大。有没有可以批量删除图标的发放。感激不尽！

Answer 1

        1、打开需要进行批量取消超级链接的电子表格， 这里只设置了20个超级链接做演示，学会之后可以用到各种表格中；

        2、要运用到宏，首先要打开宏面板来， 打开宏的具体方法是：点击“工具”菜单中的“宏”，调出“宏”对话框，或直接用快捷键ALT+F8打开。

        3、打开“宏”窗口后，在“宏名”输入一个名称，如test，注意命名要符合excel中的命名规则相符合；之后点击“创建”按钮；

        4、打开“代码编辑器”，在Sub与End Sub之间输入“Cells.Hyperlinks.Delete”，然后保存代码， 关闭代码窗口，系统返回到excel表中；

        5、接下来就是要调用刚刚创建的宏，点击“工具”菜单，找到“宏”， 又调出刚才的宏窗口，但现在可以看到刚刚创建的宏名test。

        6、点击最上面的“执行”按钮，对话框自动关闭，看一下，电子表格的超级链接是不是全部被取消掉了。

Answer 2

复制-到新表中选择性黏贴，计算项随便选个加减乘除什么到，超级链接就没有了，然后删除原表里到内容，同样到方法复制回去，试试吧

Answer 3

点中左下角的一个 空心 箭头 (在绘图工具栏里面)，

然后 用鼠标 框选 Delete 就好了

Answer 4

用宏吧，简单快捷
-----------
Sub Macro1()
'删除当前工作薄中的所有链接, iBk 的值 0 改为 1
'删除当前工作表中的所有链接, iSh 的值 0 改为 1
'只删除选中区域中的所有链接，上面两个都设为 0

Dim iBk As Boolean: iBk = 0
Dim iSh As Boolean: iSh = 0

If iBk Then
For Each sh In Worksheets
For Each c In sh.UsedRange
c.Hyperlinks.Delete
Next
Next
ElseIf iSh Then
For Each c In ActiveSheet.UsedRange
c.Hyperlinks.Delete
Next
Else
For Each c In Selection
c.Hyperlinks.Delete
Next
End If
End Sub
---------------
里面设有开关，看说明
-------------
使用：
打开当前工作表，按 Alt + F11 ,打开代码窗口，将上面的代码复制入其中，
按说明项，设置两个开关的值
按 F5 运行