Excel 工作表索引

Question

我的以下代码效果很好，但我正在尝试对其进行修改，以便将索引页面的第 1 列替换为新索引，而不是在单元格 C11 中开始范围。 .现在，新索引从单元格 A1 开始。的索引表。

这是代码:

Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim l As Long

l = 1

    With Me
        .Columns(1).ClearContents
        .Cells(1, 1) = "INDEX"
        .Cells(1, 1).Name = "Index"
    End With

以上是我希望在 C11 及以下单元格中显示的内容...

    For Each wSheet In Worksheets
    If wSheet.Name <> Me.Name Then
        l = l + 1
            With wSheet
                .Range("A1").Name = "Start_" & wSheet.Index
                .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", _
                SubAddress:="Index", TextToDisplay:="Back to Index"
            End With

            Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="", _
            SubAddress:="Start_" & wSheet.Index, TextToDisplay:=wSheet.Name
    End If
    Next wSheet

End Sub

我已经成功地修改了代码，以便返回到每张纸上索引的链接位于单元格 A4 中没有麻烦，但我不知道如何从 Cell C11 开始替换索引

Answer 1

Cells(1, 1)指A1，Cells(11, 3)指 C11。