|
VBA删除所有超链接:
- Sub Delete_Hyperlinks()
- On Error GoTo Tuichu
- Dim HyperlinkNumber As Integer
- Dim WorkSheetNumber As Integer
- Dim i As Integer
- WorkSheetNumber = Worksheets.Count
- For i = 1 To WorkSheetNumber
- HyperlinkNumber = Worksheets(i).Hyperlinks.Count
- For j = 1 To HyperlinkNumber
- Worksheets(i).Hyperlinks.Delete
- Next j
- Next i
- Tuichu:
- End SUB
复制代码
|
|