下面是一次性删除当前活动工作表的所有超链接 PublicSubClearHyperlinks() DimhylAsHyperlink ForEachhylInActiveSheet.UsedRange.Hyperlinks hyl.Delete Next EndSub 当然可以保留，只删除链接，如果要删除所有工作表的超链接，可再做个循环。看下面的代码 PublicSubClearHyperlinks() DimwsAsWorksheet DimhylAsHyperlink ForEachwsInSheets ws.Select ForEachhylInActiveSheet.UsedRange.Hyperlinks hyl.Delete Next Nextws EndSub 下面函数用于判断单元格是否引用了其他工作表数据 PublicFunctionISSHEETDATA(myCellAsRange)AsBoolean IfmyCell.HasFormulaAndInStr(myCell.Formula,"!")>
0Then ISSHEETDATA=True Else ISSHEETDATA=False EndIf EndFunction 下面函数用来判断单元格是否引用了其他外部工作簿数据 PublicFunctionISWORKBOOKDATA(myCellAsRange)AsBoolean IfmyCell.HasFormulaAndInStr(myCell.Formula,"xls")>
0Then ISWORKBOOKDATA=True Else ISWORKBOOKDATA=False EndIf EndFunction
