Excel 2016宏开发需求：批量替换超链接中的旧服务器端口地址

别担心，完全不用怕没VBA开发经验，我给你准备了现成的宏代码，跟着下面的步骤一步步来，就能轻松批量替换所有单元格里的超链接服务器地址：

步骤1：打开VBA编辑器 #

打开你的Excel文件，按下键盘上的 Alt + F11 组合键，就能快速打开VBA编辑器窗口。

步骤2：插入新模块 #

在编辑器左侧的「工程资源管理器」面板里，右键点击你的工作簿名称（比如Book1），然后选择「插入」→「模块」，这样就新建了一个空白的代码模块。

步骤3：粘贴宏代码 #

把下面这段代码复制粘贴到新建的模块里，记得把代码里的oldServer:oldPort和newServer:newPort替换成你实际需要的旧地址和新地址：

Sub UpdateHyperlinks()
    ' 声明变量
    Dim ws As Worksheet
    Dim hyp As Hyperlink
    Dim oldAddressPart As String
    Dim newAddressPart As String
    
    ' 替换成你的旧服务器地址和端口
    oldAddressPart = "oldServer:oldPort"
    ' 替换成你的新服务器地址和端口
    newAddressPart = "newServer:newPort"
    
    ' 遍历工作簿里的所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 遍历当前工作表里的所有超链接
        For Each hyp In ws.Hyperlinks
            ' 检查超链接地址是否包含旧服务器部分
            If InStr(hyp.Address, oldAddressPart) > 0 Then
                ' 替换旧地址部分为新地址，保留其余内容
                hyp.Address = Replace(hyp.Address, oldAddressPart, newAddressPart)
                ' 如果你需要同时更新超链接显示的文本（如果文本里也有旧地址的话），可以取消下面这行的注释
                ' hyp.TextToDisplay = Replace(hyp.TextToDisplay, oldAddressPart, newAddressPart)
            End If
        Next hyp
    Next ws
    
    ' 执行完成后弹出提示
    MsgBox "超链接更新完成！", vbInformation
End Sub

步骤4：运行宏 #

粘贴完代码后，按下 F5 键，或者点击编辑器工具栏里的「运行」按钮（绿色小三角），宏就会自动开始批量更新所有工作表里的超链接了。等弹出“超链接更新完成”的提示框，就大功告成啦！

注意事项 #

• 运行宏之前一定要先备份你的Excel文件，避免意外情况导致数据丢失。
• 如果你的超链接只在特定工作表里，不想遍历所有工作表，可以把代码里的For Each ws In ThisWorkbook.Worksheets改成指定工作表，比如Set ws = ThisWorkbook.Worksheets("Sheet1")（把Sheet1换成你的目标工作表名）。

内容的提问来源于stack exchange，提问作者N.Nagy