以编程方式删除超链接而不应用超链接样式

我在工作表上有一组超链接。 每个链接中的文本是Arial 8pt，并居中。 我知道我可以删除链接如下：

Range("a1:a10").Hyperlinks.Delete 

但是，我删除它们时，链接上的字体发生了变化; 当我运行这个删除操作时，每个单元格中的文本被设置为Arial 10pt并变成左alignment。

我检查了这个工作簿的超链接样式，它被设置为Arial 10pt。 我不确定为什么超链接是8pt时，风格表明他们应该是10pt。

无论如何，我想弄清楚如何保留现有格式的单元格后删除超链接，以便它保持8pt和居中。 我试过这个：

 Sub removeHyperlinks() Dim rng As Range Dim subrng As Range Set rng = ThisWorkbook.Sheets("myData").Range("a1:a10") For Each subrng In rng subrng.Copy subrng.Hyperlinks.Delete subrng.PasteSpecial Paste:=xlPasteFormats Next End Sub 

但超链接的单元格仍然是Arial 10pt，左alignment。 我如何保持格式不变？

Answer 1

这是解决这个问题的一种方法：

 Dim fntsize As Integer For Each subrng In rng fntsize = subrng.Font.Size subrng.Hyperlinks.Delete subrng.Font.Size = fntsize Next