首页 › Excel › VBA清空所有超链接

时光流逝 发表于 2019-8-13 15:59:30

VBA清空所有超链接

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

sakiny 发表于 2019-9-11 11:45:51

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

查看完整版本: VBA清空所有超链接