请问怎样删除工作簿里的全部超链接？

以太

谢谢指教

办公之星

复制，选择性粘贴为值。

通过WORD粘贴为无格式文本，再粘回来也可以。

wuaza

清风已经给出过答案了，就是建一个宏：

Sub dellink() Dim link As Hyperlink For Each link In Sheet1.Hyperlinks link.Delete Next link End Sub

zhang81524

选取一个空单元格，复制---选取全表，选择性粘贴，加,

zhang81524

还是那个宏写的好

[此贴子已经被作者于2004-11-2 19:43:51编辑过]

gdliyy

以下是引用办公之星在2004-11-2 19:32:00的发言：

复制，选择性粘贴为值。

老兄，你这个方法不行的，4 楼朋友的方法可行。

以太

以下是引用wuaza在2004-11-2 19:39:00的发言：

清风已经给出过答案了，就是建一个宏：

Sub dellink() Dim link As Hyperlink For Each link In Sheet1.Hyperlinks link.Delete Next link End Sub

如果是选全部工作表呢？怎样改？

wuaza

Sub dellink() Dim sheet As Worksheet: Dim link As Hyperlink For Each sheet In Worksheets For Each link In sheet.Hyperlinks link.Delete Next link Next sheet End Sub

清风_ll

以下是引用以太在2004-11-2 20:07:00的发言：

如果是选全部工作表呢？怎样改？

Sub dellink() Dim sh As Worksheet Dim link As Hyperlink For i = 1 To Sheets.Count Set sh = Sheets(i) For Each link In sh.Hyperlinks link.Delete Next link Next i Set sh = Nothing End Sub

啊一

写得好!