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

只需要一枪! 如何批量替换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工作簿中的超链接目标地址。 请尝试使用此方法以提高工作效率。

コメント