Excel 单个工作表中如何制作一个类似Word的索引目录

来源：百度知道 编辑：UC知道 时间：2024/06/06 04:04:28
有几千条职工的数据记录，给前面做了一个职工的姓氏索引以便打印出来方便查阅，格式如下： 陈 1-3页，王 4-6 页等等，如果不能显示终止3，6页，那么只显示起始位置陈1，王4也行。这个如果手动添加的话以后数据有增删则非常麻烦，如果像Word一样有索引目录就好了，能自动更新目录。请高手赐教。

打开要创建目录的EXCEL文件--------Alt+F11---------插入--------模块--------把下面的代码拷贝到模块中

Sub mulu()
On Error GoTo Tuichu
Dim i As Integer
Dim ShtCount As Integer
Dim SelectionCell As Range

ShtCount = Worksheets.Count
If ShtCount = 0 Or ShtCount = 1 Then Exit Sub
Application.ScreenUpdating = False
For i = 1 To ShtCount
If Sheets(i).Name = "目录" Then
Sheets("目录").Move Before:=Sheets(1)
End If
Next i
If Sheets(1).Name <> "目录" Then
ShtCount = ShtCount + 1
Sheets(1).Select
Sheets.Add
Sheets(1).Name = "目录"
End If
Sheets("目录").Select
Columns("B:B").Delete Shift:=xlToLeft
Application.StatusBar = "正在生成目录…………请等待！"
For i = 2 To ShtCount
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("目录").Cells(i, 2), Address:="", SubAddress:= _
Sheets(i).Name & "!R1C1", TextToDisplay:=Shee