可以用VBA完成
sub AddLinks()
dim sht as worksheet ,irow%: irow = 2
with worksheets(1)
for each sht in worksheets
.cells(irow,1).value = irow -1
.hyperlinks.add anchor:=.cells(irow,2),address:="",subaddress:=","& sht.name & ",!A1",texttodisplay:=sht.name
irow = irow +1
next
end sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024