乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 如何批量打开EXCEL中多个单元格中的链接在浏览器中显示

如何批量打开EXCEL中多个单元格中的链接在浏览器中显示

作者:乔山办公网日期:

返回目录:excel表格制作


1、首先,打开需要编辑的Excel表格,找到一个有链接的Excel,点击进入,进入后点击没有超链接的按键,会发现无法跳转网页。

2、单个变超链接的方法:鼠标左键双击超链接,然后按下“enter”按键。

3、但是当链接比较多的时候,这个按这个方法就有点麻烦了,所以需要其他方法,重新建立一列。

4、然后点击单元格,键入“=HYPERLINK()”,在()中输入想要变成超级链接的链接。

5、回车确定之后,下拉填充下面的单元格,就可以完成批量打开多个超级链接了。



给出你核心的代码语句,其他自己改,

其实就是循环单元格,然后打开其中的链接,

代码中的Selection是当前选中的区域,可以根据实际需要修改~

第一种是打开指定选区内的所有超级链

第二种是打开整个工作表内所有的超级链接

根据需要修改就行,

Sub OpenHyperlinks1()
    On Error Resume Next '如果单元格中没有超级链接会报错,此句代码防错处理
    
    For Each Rng In Selection '循环选区中的各个单元格
        Rng.Hyperlinks(1).Follow '打开单元格中的超级链接
    Next
End Sub


Sub OpenHyperlinks2()
    On Error Resume Next '如果单元格中没有超级链接会报错,此句代码防错处理
    
    For Each objLink In Worksheets(1).Hyperlinks '循环第一个sheet中的所有超级链接
        objLink.Follow '打开单元格中的超级链接
    Next
End Sub

可以利用hyperlink函数来实现
比如在A列中
则=hyperlink(A1)
然后下拉填充即可。

用宏可以,但你要想好,一次打开这么多文件,小心电脑死机。

在excel里同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码(假定打开的是A1到A10的链接):

Sub test()
Dim i As Integer
For i = 1 To 10 '自己按需修改

If Cells(i, 1).Hyperlinks.Count > 0 Then
Cells(i, 1).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End If
Next
End Sub
在此界面直接按F5运行此宏,OK。

相关阅读

关键词不能为空
极力推荐
  • excel取消筛选后卡住

  • 1、先看一下筛选列表和对应的数据,如下图所示,筛选列表中有数百据内容2、空一行,输入29 ,30,在筛选度列表回中,会发现少了29 和30两个数值,原因是因为空了一行3、在空行处输

ppt怎么做_excel表格制作_office365_word文档_365办公网