求助：自动生成带有超链接的目录及目录序号

MENGYIN1986

想要自动生成带有超链接的目录，同时增加序号。目前遇到的问题：
1、超链接的语句存在问题
2、目录的序号跳行显示
代码如下：

1. Sub 生成目录1()
   
2. 
   
3.     Dim sht As Worksheet, i As Byte, shtname As String, a As Byte, c As Byte
   
4.    
   
5.     Range("B3:C30").Clear                '清空数据
   
6.    
   
7.     i = 3                                          '从第三行创建目录，所以变量值定义为3
   
8.    
   
9.         For Each sht In Worksheets
   
10.         
    
11.         shtname = sht.Name                    '将sheet的名字赋值给shtname
    
12.         
    
13.         Cells(i, "C").vlaue = shtname         '将工作表名称写入C列第i行的单元格
    
14.         
    
15.                
    
16.         ActiveSheet.Hyperlinks.Add Anchor:=Cells(i,"C"), Address:="",SubAddress:= _
    
17.         "'"&shtname&"'!A1",TextToDisplay:=shtname                    '创建超链接<font color="#ff0000"><b>（第一个问题点，直接录制宏之后改的，也参考了网上的资料，但是还是整不明白）</b></font>
    
18.         
    
19.         i = i + 1
    
20.    
    
21.         Next sht
    
22.    
    
23.     Rows(3).Delete                                                               '删掉第三行，即显示目录的行（目录sheet页本身的名字不需要显示）
    
24.    
    
25.     c = Worksheets.Count                                                     '把单元格的数量赋值给C
    
26.    
    
27.     For a = 1 To c Step 1
    
28.    
    
29.         Cells(a + 2, "B") = a                                                        '从B3单元开始填充序号<font color="#ff0000"><b>（第二个问题点，实际运行时会跳行显示）</b></font>
    
30.         
    
31.         a = a + 1
    
32.            
    
33.     Next
    
34.    
    
35. 
    
36. End Sub
    

复制代码

这个代码对应附件文件中的生成目录1（）
由于是初学，希望大佬能够以这个代码为基础，指出错误的点。如果有更好的方式也希望不吝赐教。谢谢啦~

3190496160

Sub 生成目录()
Dim sht As Worksheet, i As Byte, a As Byte, c As Byte
r = Cells(Rows.Count, 1).End(xlUp).Row
If r > 2 Then Range("B3:C" & r).Clear '清空数据
n = 2
For Each sht In Worksheets
    If sht.Name <> "底稿目录" Then
        n = n + 1
        Cells(n, 2) = n - 2
        Cells(n, 3) = sht.Name
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(n, "c"), Address:="", SubAddress:="'" & sht.Name & "'!A1", TextToDisplay:=sht.Name
    End If
Next sht
End Sub

3190496160

3190496160

（V6000）所得税费用-模板.rar (46.44 KB, 下载次数: 3)

2023-1-15 09:05 上传

点击文件名下载附件

MENGYIN1986

3190496160 发表于 2023-1-15 09:05

非常感谢您的回复，我先好好研习一下。非常感谢~