我怎样才能在所有表上运行这个excel脚本？ 删除整个工作簿中的所有超链接

这是剧本。 当我通过alt + 8调用时，它在单张纸上运行良好

不过，我想运行在所有床单我怎么能做到这一点？

泰非常

这里macros

Sub RemoveHyperlinks() ActiveSheet.Hyperlinks.Delete End Sub 

基本上我想删除整个工作簿中的所有超链接

泰非常

Answer 1

码：

 Sub Test() Dim w as Worksheet For Each w in ThisWorkbook.Worksheets w.Hyperlinks.Delete Next End Sub 

Answer 2

你只需要像这样循环：

 Sub RemoveAllHyperlinks() Dim oSht as Object For each oSht in Activeworkbook.sheets oSht.Hyperlinks.Delete next oSht End Sub