VBA代码：创建索引工作表

excelperfect

标签：VBA

有时候，我们的工作簿中包含有太多的工作表，此时，如果创建一个导航工作表，其中列出了工作簿中所有工作表名并链接到相应的工作表，这样就会很方便。

下面的代码将创建一个名为“索引”的工作表，在该工作表的列A中列出工作簿中除该工作表外的所有工作表名称并链接到相应的工作表：

Sub CreateIndexSheet() Dim ws As Worksheet Dim i As Long i = 1 Application.ScreenUpdating = False Application.DisplayAlerts = False '创建索引工作表. '如果该工作表已经存在,则清空其内容. On Error Resume Next Set ws = Worksheets('索引') If Err.Number = 0 Then Worksheets('索引').ClearContents Else On Error GoTo 0 Worksheets.Add(Before:=Worksheets(1)).Name = '索引' End If Worksheets('索引').Activate Range('A1') = '索引' Range('A1').Font.Bold = True Range('A1').Font.Size = 20 For Each ws In Worksheets   If ws.Name <> '索引' Then i = i + 1     ws.Hyperlinks.Add Anchor:=Cells(i,1), Address:='', SubAddress:=''' & ws.Name &''!A1', TextToDisplay:=ws.Name End If Next ws Worksheets('索引').Columns(1).AutoFit Application.ScreenUpdating = True Application.DisplayAlerts = TrueEnd Sub

在示例工作簿中运行代码后的结果如下图1所示。