綠色字體是注釋
操作動(dòng)態(tài)圖
For Each是變量在某個(gè)集合里面循環(huán),這個(gè)集合可以是單元格,可以是工作表,也可以是工作薄,客官可以自行修改代碼進(jìn)行嘗試。
代碼如下:
Dim a As Byte, d As Byte
Dim arr As Range, str As String
Sub xjclj()
a = ActiveWorkbook.Sheets.Count
d = 2
For Each arr In Selection.Resize(a - 1, 1)
str = ActiveWorkbook.Sheets(d).Name
ActiveSheet.Hyperlinks.Add Anchor:=arr, Address:="", SubAddress:= _
str & "!A1", TextToDisplay:=str
d = d + 1
Next
End Sub
轉(zhuǎn)發(fā)后可以幫助更多的人。
上一篇精彩內(nèi)容鏈接,點(diǎn)擊查看
【Excel合并計(jì)算,領(lǐng)導(dǎo)再也不用擔(dān)心我的學(xué)習(xí)!】
聯(lián)系客服