如何在所有工作表上运行此excel脚本？删除整个工作簿中的所有超链接

Question

这是脚本。当我通过alt + 8

呼叫时，它在单张纸上运行良好

但是我想在所有表格中运行它我该怎么办？

非常非常

这里的宏

Sub RemoveHyperlinks()
ActiveSheet.Hyperlinks.Delete
End Sub

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

非常非常

Answer 1

你只需要像这样循环：

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

Answer 2

代码：

Sub Test()
    Dim w as Worksheet

For Each w in ThisWorkbook.Worksheets
    w.Hyperlinks.Delete
Next

End Sub