在Excel中将超链接转换为HTML代码

我在Excel文件中有一列超链接，我想将它们转换为它们各自的HTML代码：

<a href="http://www.example.com">Link Name</a> 

我find了只提取链接（如文本）的方法，但我需要整个HTML代码作为文本来replace单元格中的超链接。

我已经search和search，但没有人需要这个答案，我猜。 有人可以帮忙吗？

Answer 1

这实际上是一个相当简单的方法来从超链接集合对象中 .Address和可选的.SubAddress 。 .TextToDisplay属性只是单元格的值或文本。

 Sub html_anchors() Dim a As Range, u As String, l As String Dim sANCHOR As String: sANCHOR = "<a href=""%U%"">%L%</a>" For Each a In Selection With a If CBool(.Hyperlinks.Count) Then l = .Text u = .Hyperlinks(1).Address If Right(u, 1) = Chr(47) Then u = Left(u, Len(u) - 1) .Hyperlinks(1).Delete .Value = Replace(Replace(sANCHOR, "%U%", u), "%L%", l) End If End With Next a End Sub 

select您想要处理的所有单元格并运行例程。 如果您select的单元格不包含超链接，它将被忽略。