excel表格中如何批量插入图片的超链接

2024-12-25 15:55:33

推荐回答（1个）

回答1：

以上公式是很好的，但还缺少一些内容，需要修正，修正如下：

Sub 链接()
i = 2
Do While Range("C" & i).Cells.Text <> ""
Range("C" & i).Select
Worksheets("Sheet1").Hyperlinks.Add Anchor:=Selection, Address:="D:\图片\" & Range("C" & i).Cells.Text & ".jpg", _
TextToDisplay:=Range("C" & i).Cells.Text
i = i + 1
Loop
End Sub

说明：D:\图片\ 是指图片路径。
Range("C" & i)中的C是指表格中的C列和i行。
Worksheets("Sheet1")中的Sheet1是指表格名称，要与你的工作表名称一致。
本修正增加了 Cells.Text & ".jpg", _ 中的 & ".jpg"，以链接图片后缀名。
大家可试试，亲测一切OK！