VBA快速获取创建sheet链接

最新推荐文章于 2025-01-02 14:45:05 发布

原创最新推荐文章于 2025-01-02 14:45:05 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

VBA 同时被 2 个专栏收录

2 篇文章

订阅专栏

EXCEL

1 篇文章

订阅专栏

本文介绍了一种使用VBA脚本批量为Excel不同工作表创建超链接的方法，通过简单的VBA宏实现快速导航至指定Sheet页。

最近习惯性的用excel管理项目，创建DB表的描述也习惯用excel

但是很多个sheet页，想在第一个sheet页面做一个一览表，但是一个一个的加链接实在是太慢了

于是写了一个vba

Sub read()
Dim ws As Worksheet
Dim cel As Object
Set ws = Worksheets("列表")
For i = 2 To Sheets.Count
Set cel = ws.Cells(3 + i - 1, 3)
cel = Sheets(i).Name
cel.Hyperlinks.Add anchor:=cel, Address:="", SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name '创建超链接每个sheet的A1
Next
End Sub