從網頁複製表格到 Excel 時,常帶入大量超連結。逐一右鍵「移除超連結」極耗時。以下提供三種批次清除方法。






原理:選擇性貼上「值」只帶入顯示文字/數值,**不帶入超連結、公式、批註、格式**(若選「值和數字格式」則保留數字格式)。
Sub RemoveAllHyperlinks()
' 清除整張工作表所有超連結
ActiveSheet.Hyperlinks.Delete
End Sub
Sub RemoveSelectionHyperlinks()
' 僅清除選取區域超連結
Dim hl As Hyperlink
For Each hl In Selection.Hyperlinks
hl.Delete
Next hl
End Sub
用法:Alt+F11 開啟 VBA > 插入 > 模組 > 貼上程式碼 > 回 Excel Alt+F8 執行對應巨集。可加入快速存取工具列一鍵呼叫。
注意:Excel 2003 僅支援單一連續區域;2007+ 支援多重選區。
| 方法 | 速度 | 保留格式 | 適用範圍 | 需啟用巨集 |
|---|---|---|---|---|
| 選擇性貼上「值」 | 快 | 否(可選「值和數字格式」保留數字格式) | 整張表/大區域 | 否 |
| VBA 巨集 | 最快(一鍵) | 是(僅刪超連結) | 整張表/選取區域/多張表 | 是 |
| 右鍵移除超連結 | 慢(需逐區域) | 是 | 少量/零散儲存格 | 否 |