以下是代码共享

添加Sub超链接()

Dim Sr As Range检查数据类型变量

For each Sr in range ('I2 'cells (1,' I '))。end (xldown)回圈储存格区域

S (0,-1),添加超链接

Next循环已到达终点

End Sub

相关推荐