
打開該Excel文件,切換到“視圖”選項卡,點擊“宏”→“錄制宏”,出現“錄制新宏”窗口,在“宏名”定義一個名稱為:RemoveHyperlinks,點擊“確定”退出;
再點擊“宏”→“查看宏”,選擇“宏名”下的“RemoveHyperlinks”并點擊“編輯”,打開“Microsoft Visual Basic”編輯器,用如下內容替換右側窗口中的所有代碼,然后保存關閉VBA編輯器:
Sub RemoveHyperlinks()
‘Remove all hyperlinks from the active sheet
ActiveSheet.Hyperlinks.Delete
End Sub
再點擊“宏”→“查看宏”,選擇“宏名”下的“RemoveHyperlinks”并點擊“執行”即可去除該工作表的鏈接。
用以下代碼也可以達到相同的目的:
Sub ZapHyperlinks()
Cells.Hyperlinks.Delete
End Sub