下面是一次性刪除當前活動工作表的所有超連結 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
下面是一次性刪除當前活動工作表的所有超連結 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