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

Question

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

3

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

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

我找到了仅提取链接的方法（作为文本），但我需要将整个HTML代码作为文本替换单元格中的超链接。

我已经搜索了很久，但好像没有人需要这个答案。有人可以帮忙吗？

- Alex

你的链接看起来很完美！请清楚地指明你拥有什么以及结果应该是什么样子。 - ratmalwer

谢谢回复，我添加了一张截图以使其更清晰。我想用HTML代码（在Excel单元格中）替换超链接。 - Alex

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- user4039065 · Accepted Answer

从超链接对象中获取.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

选择要处理的所有单元格，然后运行程序。如果您选择的任何单元格中没有包含超链接，它将被忽略。