如何在浏览器中单击Excel单元格组合文本url打开url链接?
如何在Excel单元格中连接文本URL并单击以在浏览器中打开URL链接如何在浏览器中单击Excel单元格组合文本url打开url链接?,excel,vba,Excel,Vba,如何在Excel单元格中连接文本URL并单击以在浏览器中打开URL链接 如果将连接公式替换为: =HYPERLINK(CONCAT(A2:AA2)) 更新 如果要使用VBA实现此目的,并在浏览器中实际打开链接,则以下操作将有所帮助: Sub foo() Dim ws As Worksheet: Set ws = Sheets("Sheet1") 'declare and set your worksheet, amend as required hyperlinkVal
如果将连接公式替换为:
=HYPERLINK(CONCAT(A2:AA2))
更新
如果要使用VBA实现此目的,并在浏览器中实际打开链接,则以下操作将有所帮助:
Sub foo()
Dim ws As Worksheet: Set ws = Sheets("Sheet1")
'declare and set your worksheet, amend as required
hyperlinkValue = Join(Application.Transpose(Application.Transpose(ws.Range("A2:AA2").Value)), "")
'get the concatenated values into a variable
ws.Range("AB3").Formula = "=Hyperlink(Concat(A2:AA2)," & """Click Here To Follow Link""" & ")"
'enter the hyperlink into the Sheet in AB3
ActiveWorkbook.FollowHyperlink Address:=hyperlinkValue
'follow the hyperlink
End Sub
请看我的文件图片和帮助meAb栏目单元格我的链接url很多字符这个问题实际上看起来很合理,但迫切需要清理。我怀疑如果你编辑你的问题来整理格式并包含一个更好的例子来说明你想要完成的事情,你会得到可靠的答案。这可能正是你想要的-你也可以通过
&
:=“https://”和A1&“:”和B1&“/”来连接和逻辑上分开你的输入&“C1
。@MeghnathiBm更新了我的答案,使用VBA在浏览器中打开超链接。希望这有帮助。我想要AB列所有单元格链接