Crazy灬各自安好:
以上公式是很好的,但还缺少一些内容,需要修正,修正如下:Sub链接()i=2DoWhileRange("C"&i).Cells.Text""Range("C"&i).SelectWorksheets("Sheet1").Hyperlinks.AddAnchor:=Selection,Address:="D:\图片\"&Range("C"&i).Cells.Text&".jpg",_TextToDisplay:=Range("C"&i).Cells.Texti=i+1LoopEnd....