如何在Excel+；如何从单元格中提取网站地址

我被当前的情况困住了。我有数百个商业名称，我必须搜索其网站地址

问题1:

我现在拥有的是excel中的google搜索链接，带有=超链接（等），以及企业名称和地址

例如：street 12+纽约+&btnG=谷歌+搜索”

但我实际上需要的是internet浏览器中的url，当我单击excel超链接时会得到：

如果我点击上面的链接，这就是我需要的实际链接：

我的问题是，是否可以自动执行此操作并在excel中获取实际链接

问题2: 在excel中，我有一个充满数据的整个单元格。在此数据中，有一个url。例如，单元格包含：“ujeri sfifs93 sfisdsu fiweu2 732732 fjsdfue http:www.iwantthislink.comm sdfsdf shsdf sju32u3un”

是否可以从该单元格中自动提取一个单词，以。？开头，并对我想要的每个单元格执行此操作

---

提前感谢！

第一个问题的示例。您可以导航到工作簿中的url，等待重定向，然后返回重定向的url

Public Sub GetRedirectedLink()
    Dim IE As Object
    Dim InitialUrl As String, RedirectUrl As String

    Set IE = CreateObject("InternetExplorer.Application")

    InitialUrl = "http://www.google.com/search?hl=en&q=Airbus+12th%20street%2012+New%20York+&btnG=Google+Search"

    With IE
        .Visible = False
        ' Navigate to url
        .navigate InitialUrl

        ' Wait while page loads
        Do While .Busy
            Application.Wait DateAdd("s", 1, Now)
        Loop

        ' return Redirected URL
        RedirectUrl = .LocationURL
    End With

    MsgBox RedirectUrl
End Sub

---

对于第二个问题，您可以使用正则表达式返回域名（如果这是您想要的部分）

请为每个问题创建单独的问题。