请问如何用VBA创键超链接，在同一个文夹里，根据B列“编号“创键超链接”，谢谢大...

新一一

iu950

插入超链接的例子，附件供参考

gwjkkkkk

Option Explicit
Sub test()
    Dim ar, i&, strKey$, f, p$, dic As Object
   
    p = ThisWorkbook.Path & "\"
    Set dic = CreateObject("Scripting.Dictionary")
    With [A5].CurrentRegion
    .Cells.Hyperlinks.Delete
        ar = .Value
        For i = 1 To UBound(ar)
            dic(ar(i, 2)) = i
        Next i
        For Each f In CreateObject("Scripting.FileSystemObject").GetFolder(p).Files
            strKey = Mid(f.Name, 1, 7)
            If dic.exists(strKey) Then
                 .Hyperlinks.Add .Cells(dic(strKey), 2), f, "", "单击打开：" & f.Name
            End If
        Next
    End With
   
End Sub