北屋教程网

下面是代码分享

Sub 添加超链接()

Dim sr As Range 申明数据类型变量

For Each sr In Range("i2", Cells(1, "i").End(xlDown)) 循环单元格区域

Sheet1.Hyperlinks.Add sr.Offset(0, -1), sr.Value 添加超链接

Next 循环达到结束

End Sub