Dim Sheet1 As Worksheet
Dim a As Integer
Dim i As Integer
Dim n As String
a = [b65536].End(xlUp).Row
Set Sheet1 = Worksheets("Sheet5")
For i = 1 To a
n = "I:\" & Cells(i, 2).Value & ".jpg"
Sheet1.Hyperlinks.Add Anchor:=Cells(i, 3), Address:=n, _
TextToDisplay:=Cells(i, 2).Value
Next
Set Sheet1 = Worksheets("Sheet5")这个根据你的改下
可以，如果不是很多的话也可以手动。
内容全部来源于网络收集，如有侵权，请联系网站删除!