绿色字体是注释 操作动态图 For Each是变量在某个集合里面循环,这个集合可以是单元格,可以是工作表,也可以是工作薄,客官可以自行修改代码进行尝试。 代码如下: 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 转发后可以帮助更多的人。 上一篇精彩内容链接,点击查看 |
|