有没有一种不用设置超链接样式就可以创建超链接的方法

Question

我正在寻找一种方法来设置单元格的超链接，但不设置超链接样式。所以基本上保留现有的单元格格式。 我知道你可以设置另一种样式，但原始格式就会消失。 我知道您可以将原始格式保存在结构中，然后重新设置，但由于确实存在很多格式设置的可能性，所以这不是一个很好的解决方案，特别是当我需要处理大量单元格时。 我不想更改单元格的内容（例如超链接功能）。

我很好奇有什么选择:)。

Answer 1

别害怕。只需选择一个专用单元格即可保持临时格式。 F4是目标单元格，E6是临时格式化存储。

Option Explicit

Sub Macro1()
    Range("F4").Copy
    Range("E6").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("F4").Hyperlinks.Add [F4], "https://www.stackoverflow.com"
    Range("E6").Copy
    Range("F4").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("E6").Clear
   
End Sub