Excel 批量添加超链接

· ☕ 1 分钟 · ✍️ lizhimiao · 👀... 阅读
🏷️
  • #VBA
  • 批量添加超链接

    Sub createHyperLinkForSeletion()
    '
    '将选中单元格创建超链接,链接到单元格内容中名称的表
    '
    For Each cell In Selection
        ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:="", SubAddress:= _
            "'" & cell.Value & "'!A1", TextToDisplay:=cell.Value
    Next cell
    End Sub
    
    分享