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

发布网友发布时间：2022-05-04 23:46

我来回答

共4个回答

热心网友时间：2022-06-27 08:40

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

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

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

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

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

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

热心网友时间：2022-06-27 08:41

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

热心网友时间：2022-06-27 08:41

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

然后用鼠标框选 Delete 就好了

热心网友时间：2022-06-27 08:42

用宏吧，简单快捷
-----------
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 运行