删除超链接保留单元格格式

我有工作表中包含插入超链接的一些单元格。 我想删除超链接并在单元格中留下“友好名称”。 我可以这样做：

Sub dural() Dim h As Hyperlink For Each h In ActiveSheet.Hyperlinks h.Delete Next h End Sub 

这个小工程。 但是，如果我开始：

并运行macros，我得到：

细胞的格式已经毁了！ 反正有删除超链接，并保持格式？

编辑＃1：

检查超链接属性，我得到这个工作：

 Sub dural2() Dim h As Hyperlink, addy As String, z As String For Each h In ActiveSheet.Hyperlinks addy = h.Range.Address z = h.Parent Range(addy).ClearContents Range(addy).Value = z Next h End Sub 

Answer 1

超链接对象具有某些属性，通过反复试验我build立了一个简单的超链接到另一个单元格在同一张纸上：

• h.Address =“”
• h.Range =“CNN”（实际上返回一个Range，但是默认的属性是.Value，它的计算结果是“CNN”）
• h.SubAddress =“Sheet1！C1”

由于.SubAddress包含：

与超链接关联的文档中的位置

我将您的代码更改为：

 Sub dural() Dim h As Hyperlink For Each h In ActiveSheet.Hyperlinks h.SubAddress = "" Next h End Sub 

并发现超链接不再起作用，但您的单元格格式被保留。