用函数解决。但你的超链接是按D列里面的名称,可用辅助列E列。
假设你的“图档文件夹在”D:\My Documents“里面:
E3输入
=HYPERLINK("D:\My Documents\图档\"&D3&".jpg",D3)
回车并向下填充。
D列或可设置隐藏。
把你照片的完整路径发一下
Sub Macro1()
Dim i As Integer
For i = 1 To Range("C65536").End(xlUp).Row Step 1
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 3), Address:="C:\Users\Administrator\Desktop\照片\" & Cells(i, 3).Value & ".jpg"
Next
End Sub
路径自己改
C:\Users\Administrator\Desktop\照片\