|
Excel批量打开URL
- Sub GoInternet()
- Dim item As Range
- If TypeName(Selection) <> "Range" Then
- Exit Sub
- End If
- Dim Url As String
- For Each item In Selection
- If InStr(item.Text, "http") < 1 Then
- Url = "http://" & item.Text
- End If
- ActiveSheet.Hyperlinks.Add item, Url
- item.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
- Next item
- End Sub
复制代码
上面的代码很好理解。复制到Excel中,选中链接,运行即可。 |
|