VBA清空所有超链接

时光流逝

VBA删除所有超链接:

1. 
   
2.     Sub Delete_Hyperlinks()
   
3.     On Error GoTo Tuichu
   
4.     Dim HyperlinkNumber As Integer
   
5.     Dim WorkSheetNumber As Integer
   
6.     Dim i As Integer
   
7.     WorkSheetNumber = Worksheets.Count
   
8.     For i = 1 To WorkSheetNumber
   
9.         HyperlinkNumber = Worksheets(i).Hyperlinks.Count
   
10.         For j = 1 To HyperlinkNumber
    
11.             Worksheets(i).Hyperlinks.Delete
    
12.         Next j
    
13.     Next i
    
14.     Tuichu:
    
15.     End SUB

复制代码

sakiny

这个功能能强大，感谢分享！