Excel 工作表批量设置返回目录按钮

wujunmin

发布于 2025-02-10 16:11:20

3900

代码可运行

文章被收录于专栏：wujunminwujunmin

运行总次数：0

代码可运行

Excel报表可能有非常多的页面，使用公式或者VBA制作好目录页之后，存在另外一个需求：如何快速返回目录页。以下VBA代码实现了为除了“目录页”之外的所有页面A1单元格放置返回目录链接，即使A1单元格有数据也不会被覆盖，程序会自动插入空白行。

将页面停留在目录页，执行以下代码：

Sub mulu()
    Dim ws As Worksheet
    Dim currentWs As Worksheet
    Dim formula As String

    Set currentWs = ActiveSheet
    formula = "=HYPERLINK(""#'目录'!B2"", ""返回目录"")"
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> currentWs.Name Then
            ws.Rows(1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            ws.Range("A1").formula = formula
        End If
    Next ws
End Sub

代码中HYPERLINK("#'目录'!B2", "返回目录")指返回目录工作表的B2单元格，链接显示为”返回目录“文字，可以按需调整。

本文参与腾讯云自媒体同步曝光计划，分享自微信公众号。

原始发表：2024-09-03，如有侵权请联系 cloudcommunity@tencent.com 删除

excel