[已解决]谁来教教我如何批量打开超链接

关注中启

有谁教 教 我excel如果批量打开超链接我是excel2010

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-2-24 18:51

1. Sub 指打开链接()
   
2.     Dim rg
   
3.     For Each rg In Range("a1").CurrentRegion
   
4.         If rg.Hyperlinks.Count > 0 Then
   
5.             rg.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=False
   
6.         End If
   
7.     Next
   
8. End Sub

复制代码

你在A列敲入几个网址。
再运行代码。

跳转到最佳答案楼层

hwc2ycy

1. Sub 指打开链接()
   
2.     Dim rg
   
3.     For Each rg In Range("a1").CurrentRegion
   
4.         If rg.Hyperlinks.Count > 0 Then
   
5.             rg.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=False
   
6.         End If
   
7.     Next
   
8. End Sub

复制代码

你在A列敲入几个网址。
再运行代码。