追求執行效率，請使用以下vba程式碼此宏假設你的目錄表名為"sheet1",並排在最左邊連結建立在每個表a列的末尾再空一行處以及目錄表中的第二行起若情況稍有不同，請作相應修改後再使用subcreatlink()"============在每一頁建立“回首頁”的連結=========fori=2tosheets.countsheets(i).selecttmp=sheets(i).[a65536].end(xlup).row+1ifcells(tmp-1,1).value<>"回首頁"thencells(tmp,1).value="回首頁"activesheet.hyperlinks.addanchor:=range("a"&tmp),address:="",subaddress:="sheet1!a1"endifnext"================================================="============在首頁建立到各頁的連結===========sheets(1).selectfori=2tosheets.countcells(i,1).value=sheets(i).nameactivesheet.hyperlinks.addanchor:=range("a"&i),address:="",subaddress:=sheets(i).name&"!a1"next"=============================================endsub