Excelで複数のハイパーリンクパスを一度に変更するにはどうすればよいですか？

特定の目的のために、ワークシート内のデータに対して複数のハイパーリンクを作成し、すべてのハイパーリンクが同じファイルパスまたはアドレスにリンクされている場合があります。しかし、今ではそのハイパーリンクパスを別のアドレスに一括で置き換える必要があります。個別にハイパーリンクのパスを変更すると多くの時間がかかる可能性がありますが、この問題を迅速に解決する方法はありますか？

VBAコードを使用してワークシート内の複数のハイパーリンクパスを一度に変更する

驚くべき機能を使用して、ワークシート / ワークブック / 複数のシート / 選択範囲内で複数のハイパーリンクパスを一度に変更する

VBAコードを使用してワークシート内の複数のハイパーリンクパスを一度に変更する

次のスクリーンショットに示すように、同じハイパーリンクを持つデータリストがあると仮定します。VBAコードを使用することで、ワークシート内の古いファイルパスまたはアドレスを新しいものに迅速に置き換えることができます。

1. ALT + F11キーを押しながら押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. 挿入 > モジュールをクリックし、モジュールウィンドウに次のマクロを貼り付けます。

VBAコード：複数のハイパーリンクパスを一度に変更する

Sub ReplaceHyperlinks()
'Updateby Extendoffice
Dim Ws As Worksheet
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "KutoolsforExcel"
Set Ws = Application.ActiveSheet
xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For Each xHyperlink In Ws.Hyperlinks
    xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Application.ScreenUpdating = True
End Sub

3. そしてF5キーを押してこのコードを実行すると、古いハイパーリンクアドレスを「旧」テキストボックスに入力するよう促すダイアログボックスが表示されます。スクリーンショットをご覧ください：

4. 「OK」をクリックすると、使用したい新しいハイパーリンクアドレスを入力するように促す別のダイアログボックスがポップアップします。

5. その後、「OK」をクリックすると、すべての同じ古いハイパーリンクアドレスが新しいものに一度に置き換えられます。スクリーンショットをご覧ください：

驚くべき機能を使用して、ワークシート / ワークブック / 複数のシート / 選択範囲内で複数のハイパーリンクパスを一度に変更する

選択範囲、複数のシート、現在のワークブック、または複数のワークブックからハイパーリンクパスを置き換えたい場合、どのようにすればよいでしょうか？ Kutools for Excelの「検索と置換」機能を使用すると、このタスクを迅速に処理できます。

Kutools for Excelをインストールした後、次のように操作してください：

1. Kutools > ナビゲーションをクリックしてください。スクリーンショットをご覧ください：

2. 開いたナビゲーションペインで、「 検索と置換」タブをクリックし、「検索と置換」ペインで「置換」タブをクリックして、次の操作を行ってください：

• 「検索内容」テキストボックスに見つける古いハイパーリンクテキストを入力し、「置換内容」テキストボックスに置き換えたい新しいハイパーリンクテキストを入力します；
• 「対象」ドロップダウンリストから、ハイパーリンクパスを見つけて置換する範囲を指定します；
• 次に、「検索対象」ドロップダウンから「ハイパーリンク」を選択します；
• 最後に、「すべて検索」ボタンをクリックすると、特定のハイパーリンクテキストを含むすべての該当セルが下部のリストボックスに表示されます。

3. その後、「すべて置換」ボタンをクリックすると、古いハイパーリンクパスが新しいものに一度に変更されます。スクリーンショットをご覧ください：

無料試用版のKutools for Excelをダウンロードするにはここをクリック！

関連記事：