跳转单元格

sunny568914

Sub 获取所有名称()
    Dim ws As Worksheet
    Dim targetSheet As Worksheet
    Dim targetRow As Integer

    ' 设置目标工作表和起始行
    Set targetSheet = ThisWorkbook.Sheets("总表") ' 修改为你的目标工作表名
    targetSheet.Range("A2:c1000").ClearContents
    targetRow = 2 ' 修改为你希望开始输入的行号

    ' 遍历所有工作表，并将名称复制到目标工作表
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> targetSheet.Name Then ' 排除目标工作表自身
            targetSheet.Cells(targetRow, 2).Value = ws.Name ' 将工作表名复制到目标工作表的指定行
            targetSheet.Cells(targetRow, 3).Value = ws.Range("C3")
            targetSheet.Cells(targetRow, 1).Value = targetRow - 1
            targetSheet.Hyperlinks.Add Anchor:=targetSheet.Cells(targetRow, 4), Address:="", SubAddress:=targetSheet.Cells(targetRow, 2).Value, TextToDisplay:="点击跳转"
            targetRow = targetRow + 1 ' 行数增加，为下一个名称做准备
        End If
    Next ws
    targetSheet.Activate
End Sub

sunny568914

在第四列根据第二列的数据设置跳转连接，结果错误

大灰狼1976

targetSheet.Cells(targetRow, 2).Value
这个单元格里是什么内容

大灰狼1976

测试该处光有工作表名不行，要带!单元格地址

小凡、、、

超链接的子地址需要带地址，不能光表明

ykcbf1100

求助需要有附件，这样才能短平快的解决问题。

sunny568914

附件已上传

sunny568914

小凡、、、 发表于 2024-8-20 15:44
超链接的子地址需要带地址，不能光表明

可以用，感谢指导