使用VBA在Excel中进行索引

下面的代码在“我的工作簿”中用于索引。 问题是这个代码是用“Back to Index”覆盖A1中的单元格。 我该如何修改这段代码，使其不会覆盖每个表格中的当前值A1单元格，并将保留当前值的A1单元格中的超链接创build回索引页面？ TIA

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 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 

Answer 1

看起来很简单，但也许我不明白这个问题。

  With wSheet .Range("A1").Name = "Start_" & .Index .Hyperlinks.Add Anchor:=.Range("A1"), Address:=vbNullstring, _ SubAddress:="Index", TextToDisplay:=.Range("A1").Text End With