想看看有没有精通vba目录的朋友。

朝明

Sub 在目录表建立本工作簿中各表链接目录()

Dim s%, Rng As Range

On Error Resume Next

Sheets("目录").Activate

If Err = 0 Then

Sheets("目录").UsedRange.Delete

Else

Sheets.Add

ActiveSheet.Name = "目录"

End If

For i = 1 To Sheets.Count

If Sheets(i).Name <> "目录" Then

s = s + 1

Set Rng = Sheets("目录").Cells(((s - 1) Mod 35) + 1, (s - 1)\35 + 1 + 1)

Rng = Format(s, "  0") & ". " & Sheets(i).Name

ActiveSheet.Hyperlinks.Add Rng, "#" & Sheets(i).Name & "!A1", ScreenTip:=Sheets(i).Name

End If

Next

Sheets("目录").Range("b:iv").EntireColumn.ColumnWidth =35

End Sub 给我看一下，我是个vba的菜鸟，想有谁给我改一下，把每个工作表H13单元格内容拿来作为目录，如果没有内容再用工作表名称作为目录名。还想问问有没有工作表返回目录的vba.先谢谢了

朝明

Sub 在目录表建立本工作簿中各表链接目录()
Dim s%, Rng As Range
    On Error Resume Next
    Sheets("目录").Activate
    If Err = 0 Then
        Sheets("目录").UsedRange.Delete
    Else
        Sheets.Add
        ActiveSheet.Name = "目录"
    End If
   
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> "目录" Then
            s = s + 1
            Set Rng = Sheets("目录").Cells(((s - 1) Mod 35) + 2, (s - 1) \ 35 + 1 + 1)
            Rng = Format(s, "  0") & ". " & Sheets(i).Name
            ActiveSheet.Hyperlinks.Add Rng, "#" & Sheets(i).Name & "!A3", ScreenTip:=Sheets(i).Name
        End If
    Next
   
    Sheets("目录").Range("b:iv").EntireColumn.ColumnWidth = 35
End Sub

从新发送一下