Vba 如何强制excel在webbrowser中打开文本？

我必须在Google中执行大量搜索，因此我制作了一个Excel文档，只需将文本插入Google链接：

“约翰”和“足球”或“体育”

“安德烈”和“足球”或“体育”

例如，在中，在单元格A1中有名称“John”，我将其插入以下链接中

&A1%22+和+%E2%80%9CSoccer%E2%80%9D+或+%E2%80%9C端口%E2%80%9D+&oq=%22和A1%22+和+%E2%80%9CSoccer%E2%80%9C端口%E2%80%9D+&gs_l=serp.3…7614.32351.0.0.32567.17.0.0.0.0.0.0.345.1828.8JJJ0.15%80%9C端口%9D+或+%E2%80%80%9C端口%80%9D+%9C端口%9D+&gs\gs\G=serp.371

结果是这样的：

我只是简单地把所有的名字拖下来。这些都是把我发送到我想要的页面的链接。但我做不到的是“点击它们”，不管我怎么做，我都不能让那些单元格成为可点击的超链接

下一步也是我想用Amyuni PDF打印/保存它们。（这不是我目前最担心的问题）

有没有办法强制文本在浏览器中打开？以VBA为例

提前谢谢你，如果你知道一个更简单的方法来执行这一点，我也想听到

亲切的问候

您应该使用

---

如果您想要的链接位于A5中，则Microsoft提供了此示例：

Sub test()

With Worksheets(1)
 .Hyperlinks.Add Anchor:=.Range("a5"), _
 Address:="http://example.microsoft.com", _
 ScreenTip:="Microsoft Web Site"

End With
End Sub

---

您可以修改地址：=。。。根据单元格的内容

是否也可以根据单元格的内容自动更改地址，还是必须手动更改地址？地址：=.range（“a5”）。值感谢您的评论我使VBA代码正常工作。我让A1:C1单元格工作，现在我想知道我是否可以在一个webbrowser（带3个选项卡）中打开这些链接，可以这样做吗？

Sub test()

With Worksheets(1)
 .Hyperlinks.Add Anchor:=.Range("a5"), _
 Address:="http://example.microsoft.com", _
 ScreenTip:="Microsoft Web Site"

End With
End Sub