=HYPERLINK("#目录!A1","目录!A1") 

=HYPERLINK("#"&A2&"!A1",A2)

生成目录:

  Sub createmulu()    For i = 1 To Sheets.Count      Cells(i, 1) = Sheets(i).Name    Next    End Sub

相关文章: