哪里错了，帮忙修改

xing_chen

老师：帮忙看看，为什么不能链接，下列代码中遍历工作表部分哪里错了


Sub 超链接()
    Dim k%
    Sheets("汇总").Range("b2:b200").ClearContents
    For i = 14 To Sheets.Count
        With Sheets(i)
        If sh.Name <> "汇总" Then
            With Sheets("汇总")
                .Cells(k + 2, 2) = sh.Name
                .Hyperlinks.Add Anchor:=.Cells(k + 2, 2), Address:="", SubAddress:= _
                    sh.Name & "!b18", TextToDisplay:=sh.Name
            End With
            sh.Hyperlinks.Add Anchor:=sh.[b18], Address:="", SubAddress:= _
            "汇总!b18", TextToDisplay:="返回"
            k = k + 1
        End If
        End With
    Next
End Sub

谢谢老师赐教

ssfx1982

Sub 超链接()
    Dim k%
    Sheets("汇总").Range("b2:b200").ClearContents
    For i = 1 To Sheets.Count
        With Sheets(i)
        Set sh = Sheets(i) '上下名称起的不一样Sheets(i)和sh
        If sh.Name <> "汇总" Then
            With Sheets("汇总")
                .Cells(k + 2, 2) = sh.Name
                .Hyperlinks.Add Anchor:=.Cells(k + 2, 2), Address:="", SubAddress:= _
                     "'" & sh.Name & "'!b18", TextToDisplay:=sh.Name
                     'SubAddress的参数是常量字符串，所以不支持直接变量,外面要
                     '套对单引号，后面的B18如果是变量，同理要加对单引号
            End With
            sh.Hyperlinks.Add Anchor:=sh.[b18], Address:="", SubAddress:= _
            "汇总!b18", TextToDisplay:="返回"
            k = k + 1
        End If
        End With
    Next
End Sub

3190496160

If sh.Name <> "汇总" Then
者及代码明显是错误的嘛，你没有sh的呀

xing_chen

ssfx1982 发表于 2022-11-17 02:12
Sub 超链接()
    Dim k%
    Sheets("汇总").Range("b2:b200").ClearContents

谢谢老师！运行顺利。