excel - 使用vba从单元格中提取部分数据

Question

我在 excel 的单元格中有大量 html 字符串，我想做的是从字符串中提取 url，但会丢失其余的 html 标记。

我的字符串看起来像这样

                <a class="text" href="http://cssrockstar.com" target="_blank" rel="nofollow" onclick="_gaq.push(['_trackPageview', '/view/CSS Rockstar']);">CSS Rockstar</a>

我只需要提取http://cssrockstar.com部分

我试图玩一些vba来做到这一点，但我很快就被卡住了，有人能指出我正确的方向吗？谢谢

Answer 1

您也可以使用公式来执行此操作（E3 将是您的源单元格）。此公式要求所有 href 属性都用双引号分隔。

=LEFT(MID(E3, FIND("href=""",E3)+6, 999),FIND("""",MID(E3, FIND("href=""",E3)+6, 999))-1)

Answer 2

您可以使用拆分功能：

Sub test()
    Dim s As String
    s = "<a class=""text"" href=""http://cssrockstar.com"" target=""_blank"" rel=""nofollow"" onclick=""_gaq.push(['_trackPageview', '/view/CSS Rockstar']);"">CSS Rockstar</a>"

    Dim res As String
    res = Split(Split(Split(s, "href=")(1), " ")(0), """")(1)
End Sub