VBA，关于外部链接的清除和查找

下面是一次性删除当前活动工作表的所有超链接

Public Sub ClearHyperlinks()
    Dim hyl As Hyperlink
    For Each hyl In ActiveSheet.UsedRange.Hyperlinks
        hyl.Delete
    Next
End Sub 

当然可以保留，只删除链接，如果要删除所有工作表的超链接，可再做个循环。看下面的代码
Public Sub ClearHyperlinks()
Dim ws As Worksheet
Dim hyl As Hyperlink
  For Each ws In Sheets
    ws.Select
    For Each hyl In ActiveSheet.UsedRange.Hyperlinks
        hyl.Delete
    Next
  Next ws
End Sub 

下面函数用于判断单元格是否引用了其他工作表数据
Public Function ISSHEETDATA(myCell As Range) As Boolean
    If myCell.HasFormula And InStr(myCell.Formula, "!") > 0 Then
        ISSHEETDATA = True
    Else
        ISSHEETDATA = False
    End If
End Function

下面函数用来判断单元格是否引用了其他外部工作簿数据
Public Function ISWORKBOOKDATA(myCell As Range) As Boolean
    If myCell.HasFormula And InStr(myCell.Formula, "xls") > 0 Then
        ISWORKBOOKDATA = True
    Else
        ISWORKBOOKDATA = False
    End If
End Function