最近习惯性的用excel管理项目,创建DB表的描述也习惯用excel
但是很多个sheet页,想在第一个sheet页面做一个一览表,但是一个一个的加链接实在是太慢了
于是写了一个vba
Sub read()
Dim ws As Worksheet
Dim cel As Object
Set ws = Worksheets("列表")
For i = 2 To Sheets.Count
Set cel = ws.Cells(3 + i - 1, 3)
cel = Sheets(i).Name
cel.Hyperlinks.Add anchor:=cel, Address:="", SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name '创建超链接每个sheet的A1
Next
End Sub