只需要一枪！ 如何批量替换Excel工作簿中超链接的目标地址

如果要一次替换Excel工作簿中多个超链接的目标地址，则手动逐个更改它们会很麻烦。 在这种情况下，可以使用VBA有效地执行批量替换。 本文将向您展示如何使用VBA批量替换Excel工作簿中的超链接目标地址。

准备VBA代码

您可以使用下面的VBA代码批量替换Excel工作簿中超链接的目标地址。

Sub ReplaceHyperlinkAddressesInExcel()
    Dim ws As Worksheet
    Dim hLink As Hyperlink
    Dim oldAddressPart As String
    Dim newAddressPart As String

    ' 検索文字列の入力を求める
    oldAddressPart = InputBox("検索文字列を入力してください（例：http://）", "検索文字列")
    If oldAddressPart = "" Then Exit Sub

    ' 置換文字列の入力を求める
    newAddressPart = InputBox("置換文字列を入力してください（例：https://）", "置換文字列")

    ' ワークシートごとにループ
    For Each ws In ActiveWorkbook.Worksheets
        ' ハイパーリンクごとにループ
        For Each hLink In ws.Hyperlinks
            ' ハイパーリンクのアドレスを置換
            If InStr(1, hLink.Address, oldAddressPart) > 0 Then
                hLink.Address = Replace(hLink.Address, oldAddressPart, newAddressPart)
            End If
        Next hLink
    Next ws

    MsgBox "ハイパーリンクのリンク先アドレスの置換が完了しました。", vbInformation, "置換完了"
End Sub

此代码将批量替换Excel工作簿中所有工作表中的超链接目标地址。 操作步骤如下。

步骤1：打开VBA编辑器

在Excel中打开VBA编辑器。 要打开编辑器，请同时按“Alt”和“F11”键。

步骤2：粘贴VBA代码

在VBA编辑器中，从“插入”菜单中选择“标准模块”，然后在新模块打开时，粘贴以前的VBA代码。 粘贴后，关闭VBA编辑器并返回到工作表。

步骤3：运行VBA代码

要运行VBA代码，请按 其他 和 F8 键同时在Excel中的工作表上显示宏对话框。 从对话框中选择名为“替换超链接地址在 Excel”中的宏，然后单击“运行”按钮。

步骤 4：输入搜索并替换字符串

当系统提示输入搜索字符串时，请输入要替换的目标地址部分（例如，http://）。 之后，将出现一个替换字符串输入对话框，您可以在其中输入新目标地址的一部分（例如 https://）。

键入完成后，VBA代码将运行以批量替换Excel工作簿中所有超链接的目标地址。 最后，您将看到消息“超链接目标地址替换完成”，因此请单击“确定”按钮完成。

总结

使用此处介绍的VBA代码，您可以轻松地批量替换Excel工作簿中的超链接目标地址。 请尝试使用此方法以提高工作效率。