前言｜職場實例
今天，小編遇到了這樣的一個Excel問題：
在Excel中存在大量的超鍊接地址，我們如何快速的批量打開所有的超鍊接網址呢？
Excel超鍊接的作用：
1、可以快速通過點擊鍊接，到達指定的網頁、表格等。
2、方便管理，可以集中保存所需要的網址，文件鍊接，需要時點擊超鍊接就可以即時打開。
通常的做法是鼠标一個一個點擊超鍊接，然後自動打開鍊接地址。使用這種直白的方法完全沒有考慮到數據量大，即超鍊接數量非常多的情況，如果有200個超鍊接網址，一個一個點開是不是效率很低下呢？
方案｜VBA代碼解決方案
首先我們鼠标右擊工作表的名稱标簽，點擊“查看代碼”按鈕（或者按快捷鍵Alt F11），進入VBA代碼編輯窗口，我們需要将下面的一段代碼複制粘貼到該代碼窗口中，然後點擊關閉退出VBA窗口即可。
代碼如下：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
i = Hyperlinks.Count
For j = 1 To i
Shell "C:\Users\Administrator\AppData\Local\Google\Chrome\Application\chrome.exe " & Hyperlinks.Item(j).Address
Next j
EndSub
回到Excel工作表界面後，這時候我們隻需要随意點擊任意的一個單元格，奇迹發生了，我們發現Excel表格内所有的超鍊接網址就自動批量全部的打開了。效果如下圖所示：
注意點：
這段VBA代碼的格式是固定的，我們隻需要複制粘貼即可。其中有一個位置的代碼需要我們根據自己浏覽器的具體情況而改變。即下方紅框标出部分。
這部分代碼代表我們浏覽器的安裝位置路徑，可以決定我們使用哪一款浏覽器打開網址超鍊接。由于我們每個人安裝的浏覽器不同，有的是自帶的IE浏覽器，有的是360浏覽器，有的是谷歌浏覽器等等，且安裝的路徑也因人而異。所以需要靈活變動。
那麼我們該如何找到自己電腦浏覽器的安裝路徑呢？
其中我們隻需要确定選擇好我們需要打開超鍊接的浏覽器，比如我們本例中使用谷歌浏覽器。然後鼠标右擊浏覽器桌面快捷方式圖标，點擊“屬性”，進入“屬性”對話框，在“快捷方式”選項卡下面找到“目标”，右邊的路徑信息即為安裝路徑，複制粘貼到VBA代碼的紅框标注部分即可。
更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
