Excel批量打开URL

待定犯傻的病人

Excel批量打开URL

1. Sub GoInternet()
   
2.     Dim item As Range
   
3. 
   
4.     If TypeName(Selection) <> "Range" Then
   
5.         Exit Sub
   
6.     End If
   
7. 
   
8.     Dim Url As String
   
9.     For Each item In Selection
   
10. 
    
11.         If InStr(item.Text, "http") < 1 Then
    
12.             Url = "http://" & item.Text
    
13.         End If
    
14. 
    
15.         ActiveSheet.Hyperlinks.Add item, Url
    
16. 
    
17.         item.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    
18.     Next item
    
19. 
    
20. End Sub

复制代码

上面的代码很好理解。复制到Excel中，选中链接，运行即可。

sakiny

原来如此，感谢分享！