请教各位高手一个问题

静静妹妹

Sub Macro1()
Dim i
With Worksheets(1)
.Range("C1:C1000").Hyperlinks.Delete
.Range("C1:C1000").Clear
For i = 2 To Worksheets.Count   
    .Cells(i, 3).Hyperlinks.Add Anchor:=.Cells(i, 3), Address:="", SubAddress:="'" & Worksheets(i).Name & "'!A1", TextToDisplay:=Worksheets(i).Name
Next i
End With
End Sub


大家好，这个目录代码执行出来的目录名称是每个子表的名称，如何修改为执行出来显示的文字为每个子表a1单元格的内容，谢谢大家

sub麻辣君

把这句TextToDisplay:=Worksheets(i).Name改成TextToDisplay:=Worksheets(i).range("a1")&""

比如：
Sub Macro1()
   Dim i, n
   With Worksheets(1)
      .Range("C1:C1000").Hyperlinks.Delete
      .Range("C1:C1000").Clear
      For i = 2 To Worksheets.Count
         .Cells(i, 3).Hyperlinks.Add Anchor:=.Cells(i, 3), Address:="", SubAddress:="'" & Worksheets(i).Name & "'!A1", TextToDisplay:=Worksheets(i).Range("a1") & ""
      Next i
   End With
End Sub

静静妹妹

sub麻辣君 发表于 2019-10-7 10:31
把这句TextToDisplay:=Worksheets(i).Name改成TextToDisplay:=Worksheets(i).range("a1")&""

比如：

可以了，非常感谢您的指导。谢谢