直接在返回目录下方添加链接代码 '添加超链接 strlianjie = str + "!A1" Cells(hang, 4).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ strlianjie, TextToDisplay:=str
测试结果