Back

Excel 批量添加超链接

批量添加超链接

Sub createHyperLinkForSeletion()
'
'将选中单元格创建超链接,链接到单元格内容中名称的表
'
For Each cell In Selection
    ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:="", SubAddress:= _
        "'" & cell.Value & "'!A1", TextToDisplay:=cell.Value
Next cell
End Sub
Licensed under CC BY-NC-SA 4.0
comments powered by Disqus
Built with Hugo
Theme Stack designed by Jimmy