Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/28.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何在浏览器中单击Excel单元格组合文本url打开url链接?_Excel_Vba - Fatal编程技术网

如何在浏览器中单击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

如何在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
    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列所有单元格链接