如何用VBA宏为控制表工号创建对应工作表的超链接

针对你的需求，这里提供一个宏，它会遍历控制表（Control）A列的工号，仅为存在同名工作表的单元格添加超链接，不会清空原有内容，完全贴合你“基于已有工号匹配生成链接”的要求：

Sub AddHyperlinksFromControlList()
    Dim controlWs As Worksheet
    Dim targetWs As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置控制表对象
    Set controlWs = ThisWorkbook.Sheets("Control")
    
    ' 获取A列最后一行有数据的行号（假设A1是表头，从A2开始处理）
    lastRow = controlWs.Cells(controlWs.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历A列的工号
    For i = 2 To lastRow
        ' 获取当前单元格的工号文本
        Dim empID As String
        empID = controlWs.Cells(i, "A").Value
        
        ' 跳过空单元格
        If empID <> "" Then
            On Error Resume Next ' 捕获工作表不存在的错误
            Set targetWs = ThisWorkbook.Sheets(empID)
            On Error GoTo 0 ' 恢复错误处理
            
            ' 如果找到同名工作表，添加超链接
            If Not targetWs Is Nothing Then
                controlWs.Hyperlinks.Add _
                    Anchor:=controlWs.Cells(i, "A"), _
                    Address:="", _
                    SubAddress:=targetWs.Name & "!A2", _
                    TextToDisplay:=empID ' 保留原单元格的工号文本
                
                ' 重置对象变量，避免下一次循环出错
                Set targetWs = Nothing
            End If
        End If
    Next i
End Sub

代码说明： #

• 不会清空控制表A列原有内容，只处理有工号的非空单元格
• 加入了错误处理，避免因工号无对应工作表导致宏报错
• 超链接指向对应工作表的A2单元格（和你原宏的目标位置一致）
• 保留原单元格的工号文本作为链接显示内容

和你原有ListSheets宏的区别： #

• 原宏是从所有工作表反向生成列表，会清空A列；新宏是基于已有工号正向匹配链接，保留原有数据
• 新宏只处理控制表中已存在的工号，不会额外添加无关的工作表名称

内容的提问来源于stack exchange，提问作者David Cook