admin 管理员组

文章数量: 1087652

VBA excel中批量创建超链接代码（连接当前文档中的sheet）

excel中批量创建超链接代码（连接当前文档中的sheet），在sheet1中B列中要创建一系列的超链接，链接的内容是本文档中的其他sheet，如下图，在sheet1下创建宏，代码如下。

Sub 宏1()

Dim temp, temp2

Dim i, j

    j = 1

    For i = 5 To 74

        temp = "'G" & j & "'!A1"

        temp2 = "G" & j

        Range("B" & i).Select

         ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=temp, TextToDisplay:="G" & j

        j = j + 1

    Next

End Sub

在每一个sheet的第一个单元格中创建返回sheet1的B列所对应的链接单元格。

Sub 宏2()

Dim temp, temp2, i, j

j = 1

    For i = 5 To 74

     temp = "sheet1！B" & i

     temp2 = "G" & j

    Sheets(temp2).Select

    ActiveCell.FormulaR1C1 = ""

    Range("A1").Select

    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=temp, TextToDisplay:="返回"

    j = j + 1

    

    Next

End Sub

本文标签： VBA excel中批量创建超链接代码（连接当前文档中的sheet）

版权声明：本文标题：VBA excel中批量创建超链接代码（连接当前文档中的sheet） 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1700323737a396901.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。