Excel批量打開(kāi)URL

一個(gè)小伙伴想要在Excel中批量打開(kāi)一批網(wǎng)址。果斷滿足了他。

Sub GoInternet()Dim item As RangeIf TypeName(Selection) <> "Range" ThenExit SubEnd IfDim Url As StringFor Each item In SelectionIf InStr(item.Text, "http") < 1 ThenUrl = "http://" & item.TextEnd IfActiveSheet.Hyperlinks.Add item, Urlitem.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=TrueNext itemEnd Sub

上面的代碼很好理解。復(fù)制到Excel中，選中鏈接，運(yùn)行即可。

總結(jié)

以上是生活随笔為你收集整理的Excel批量打开URL的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。