如何删除超链接而不删除格式？

在Excel中，当我们删除具有某些格式（如背景颜色，字体，大小等）的超链接时，该格式将被删除，并显示以下屏幕截图。 但是，有时，在删除超链接时，我们需要保持单元格格式。 有什么方法可以帮助我们解决这个令人烦恼的问题？

删除超链接而不删除VBA代码的格式

删除超链接而不删除VBA代码的格式

在Excel中，没有直接的方法来处理此任务，但是在删除超链接时，可以应用以下VBA代码来保留单元格格式。

1。 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications窗口.

2。 点击 插页 > 模块，然后将以下代码粘贴到 模块窗口.

VBA代码：删除超链接而不删除格式

Sub RemoveHlinks()
'Update 20141024
Dim Rng As Range
Dim WorkRng As Range
Dim TempRng As Range
Dim UsedRng As Range
Dim xLink As Hyperlink
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set UsedRng = Application.ActiveSheet.UsedRange
For Each xLink In WorkRng.Hyperlinks
    Set TempRng = Cells(1, UsedRng.Column + UsedRng.Columns.Count)
    Set Rng = xLink.Range
    Rng.Copy TempRng
    Rng.ClearHyperlinks
    Set TempRng = TempRng.Resize(Rng.Rows.Count, Rng.Columns.Count)
    TempRng.Copy
    Rng.PasteSpecial xlPasteFormats
    TempRng.Clear
Next
End Sub

3. 然后按 F5 键运行此代码，然后会弹出一个提示框，提醒您选择包含超链接的单元格，请参见屏幕截图：

4。 然后点击 OK 要关闭对话框，将删除超链接，但是将保留超链接的格式（包括下划线）。

相关文章：

如何在Excel中一次更改多个超链接路径？

如何从Excel中的超链接中提取实际地址？