ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
会員登録
x

or

一度に複数のハイパーリンクパスをExcelで変更する方法

いくつかの目的のために、ワークシートの値に複数のハイパーリンクを作成し、すべてのハイパーリンクが同じファイルパスまたはアドレスにリンクされている場合でも、このハイパーリンクパスを別のアドレスに一度に置き換える必要があります。 ハイパーリンクのパスを個別に変更するには、多くの時間を無駄にするかもしれませんが、この問題を解決するための迅速な方法はありますか?

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

Excel用Kutoolsでハイパーリンクから実アドレスを抽出する

Kutools for Excelで選択/ワークシート/ワークブックからすべてのハイパーリンクを削除する


ハイパーリンクからの実アドレスの抽出/表示:

ライブストリームイベント開始時間 Kutools for Excelさん ハイパーリンクを変換するハイパーリンクされたセルから実際のURLアドレスをすぐに抽出することができます。

docハイパーリンクからアドレスを抽出する


矢印青い右の泡 一度に複数のハイパーリンクパスをVBAコードで変更する


表示されているスクリーンショットと同じハイパーリンクを持つデータのリストと、VBAコードを使用すると、古いファイルパスまたはアドレスを新しいものにすばやく置き換えることができます。

doc-change-hyperlinks1

1. 押したまま Alt + F11 キーを押すと、 Microsoft Visual Basic for Applicationsウィンドウ.

2. ナビゲーションヘッダーの インセット > モジュール、次のマクロを モジュールウィンドウ.

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

Sub ReplaceHyperlinks()
'Updateby20140220
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 このコードを実行するためのキーと、古いハイパーリンクアドレスを 古いテキスト ボックス。 スクリーンショットを見る:

doc-change-hyperlinks2

4に設定します。 OK をクリックします。 OK別のプロンプトボックスが表示され、使用する新しいハイパーリンクアドレスの入力を促すメッセージが表示されます。

doc-change-hyperlinks3

5。 そして、 OKすべての同じ古いハイパーリンクアドレスが一度に新しいものに置き換えられました。 スクリーンショットを参照してください:

doc-change-hyperlinks4 -2 doc-change-hyperlinks5

矢印青い右の泡 Excel用Kutoolsでハイパーリンクから実アドレスを抽出する

Excelのハイパーリンクから実際のアドレスを抽出するにはどうすればいいですか? と ハイパーリンクを変換する of Kutools for Excelこのタスクにすばやく対処できます。

Kutools for Excel : 300便利なExcelアドイン以上で、60日以内に自由に試してみてください.

あなたが持っている場合 Kutools for Excel、次のようにしてください:( Excel用のKutoolsを今すぐダウンロード

1に設定します。 OK をクリックします。 クツール > リンク > ハイパーリンクを変換する、スクリーンショットを見る:

doc-change-hyperlinks5

2。 の中に ハイパーリンクを変換する ダイアログボックスで ハイパーリンクアドレスはセルの内容を置き換えます オプションの下に タイプを変換する セクションをクリックし、最初の doc変更ハイパーリンク8 ボタンをクリックして、実際のアドレスを抽出するハイパーリンクの範囲を選択し、2番目の doc変更ハイパーリンク8ボタンを押して、結果を配置するセルを選択します。スクリーンショットを参照してください:

doc-change-hyperlinks5

3。 次に、をクリックします OK ボタンをクリックし、選択されたハイパーリンクからすべての実際のアドレスが抽出されました。スクリーンショットを参照してください:

doc-change-hyperlinks5

このハイパーリンクの変換機能の詳細については、クリックしてください。

Excel用のKutoolsを今すぐダウンロード


矢印青い右の泡 Kutools for Excelで選択/ワークシート/ワークブックからすべてのハイパーリンクを削除する

多くのハイパーリンクは、ワークシートまたはワークブックから削除する必要がありましたが、 Kutools for Excelさん ハイパーリンクの削除 関数を使用すると、ブック内の1つまたは複数のワークシート内の選択範囲内のハイパーリンクを削除できます。

インストールした後 Kutools for Excel、このようにしてください:( Excel用のKutoolsを今すぐダウンロード

ナビゲーションヘッダーの クツール > リンク > ハイパーリンクの削除ハイパーリンクを削除する範囲を選択してください。スクリーンショットを参照してください:

doc-change-hyperlinks5

クリックすると、このハイパーリンクの削除機能の詳細が表示されます。

Excel用のKutoolsを今すぐダウンロード


関連記事:


Kutools for Excelは、ほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート そして、以前に使用したもの; セルを暗号化する パスワード付き メーリングリストの作成 そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストや数式を簡単に編集する) レイアウトを読む (多数のセルを簡単に読んで編集できます)。 フィルター範囲に貼り付ける...
  • セル/行/列を結合 データを失うことなく; セルコンテンツの分割。 重複する行/列を結合する...重複セルの防止。 範囲の比較...
  • 重複または一意を選択します空白行を選択 (すべてのセルは空です)。 スーパー検索とファジー検索 多くのワークブックで。 ランダム選択
  • 完全コピー 式の参照を変更せずに複数のセル。 参照を自動作成 複数のシートに 箇条書きを挿入、チェックボックスなど
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷 セルのコンテンツとコメント間の変換...
  • スーパーフィルター (保存して他のシートにフィルタ方式を適用する)。 高度な並べ替え 月/週/日、頻度などによる。 特殊フィルター 太字、斜体で...
  • ワークブックとワークシートを組み合わせる; キー列に基づいて表をマージします。 データを複数のシートに分割する; xls、xlsx、およびPDFのバッチ変換...
  • 300を超える強力な機能。 Office / Excel 2007-2019および365をサポートします。 すべての言語をサポートします。 企業または組織に簡単に展開できます。 フル機能の30日間の無料トライアル。
KTEタブ201905

OfficeタブはOfficeにタブ付きインターフェイスを提供し、作業をより簡単にします

  • Word、Excel、PowerPointでタブ付き編集と読み取りを有効にする、出版社、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を50%向上させ、毎日数百回のマウスクリックを削減します。
オフィシタブ底
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    wannabeIT · 4 months ago
    Had a spreadsheet with over 200 items that had hyperlinks that needed to be edited. This just saved me SO MUCH TIME. THANK YOU!!
  • To post as a guest, your comment is unpublished.
    Lona · 1 years ago
    I need to only get part of my text in the hyperlinks removed.
  • To post as a guest, your comment is unpublished.
    Taylor · 1 years ago
    For some reason, these macros have quit working recently. I have used them multiple times to fix issues on many spreadsheets but now it doesn't do anything. No errors just no corrections
    • To post as a guest, your comment is unpublished.
      Jafedi · 4 months ago
      I´m the same problem. What´s the reason?
  • To post as a guest, your comment is unpublished.
    Fabio · 1 years ago
    Wow, thanks. Its amazing that Excel doesn't have a solution for cases like this.
  • To post as a guest, your comment is unpublished.
    Vern · 2 years ago
    Sorry, nevermind about my question, I stumbled on my answer. I exited out of the macro editor, placed my cursor in cell A1 of the worksheet I wanted to edit and ran the macro and Boom all the links were changed! Thanks so much!
  • To post as a guest, your comment is unpublished.
    Vern Poplaski · 2 years ago
    I loaded the hyperlink change macro and ran it. It worked but only on the active cell. How do you get it to go through the entire worksheet?
  • To post as a guest, your comment is unpublished.
    Hannes · 2 years ago
    I have a spreadsheet with thousands of links to scanned images on a Google Drive folder. When Excel crashes, it decides to change all my hyperlinks and have it point at a APP ROAMING directory. It took me less than 15 minutes to fix all links. You are the best !!!!
  • To post as a guest, your comment is unpublished.
    pranav · 2 years ago
    great help. the code helped me mass update hyperlinks in a minute.

    thanks a ton
    Pranav
  • To post as a guest, your comment is unpublished.
    Tom · 2 years ago
    Amazing - thanks v much, this just saved me a load of manual editing after a spreadsheet of mine crashed and recovered but with corrupted hyperlinks
  • To post as a guest, your comment is unpublished.
    Diishaa · 2 years ago
    How would I change this in order to update hyperlinks that link to folders within a hard drive rather than external web addresses?
  • To post as a guest, your comment is unpublished.
    Diishaa · 2 years ago
    I tried to run it on hyperlinks that contains other folders reference but it didn't work.
    How would I change this in order to update hyperlinks that link to folders within a hard drive rather than external web addresses?
  • To post as a guest, your comment is unpublished.
    Benjamin · 2 years ago
    Amazing. Worked like a charm on excel 2013, no tweaking required, unlike similar fixes I've seen for this problem. THANK YOU sooooo much. Saved a massive headache and hours of time.
  • To post as a guest, your comment is unpublished.
    Jeanie H · 2 years ago
    Thank you so much for developing this! I had a user who created a bunch of hyperlinks on multiple tabs (at least several hundred) and somehow they had a file path to his AppData\Roaming folder on his c drive instead of to the network folder. I was able to use your VBA script to remove that portion of the link code and now it all works. Saved us probably a week's worth of updating and it took me less than 2 minutes to implement!
  • To post as a guest, your comment is unpublished.
    Terri Floren · 3 years ago
    This is brilliant. You saved me SO.MUCH.TIME. today. Thanks for sharing!
  • To post as a guest, your comment is unpublished.
    Terri Floren · 3 years ago
    Wow! This saved me SO.MUCH.TIME. You're awesome. Thanks for sharing!
  • To post as a guest, your comment is unpublished.
    Rob Smith · 3 years ago
    This is the most helpful Excel article I have ever come across. I have had many problems where hyperlinks within a file become corrupted, or I want to move location of some hyperlinked files, and updating has always been a major problem. My Excel programmer didn't have a simple fix. This works faultlessly. I am very grateful - thank you!
  • To post as a guest, your comment is unpublished.
    abdralin · 4 years ago
    it did a lot of help
    thank you very much
  • To post as a guest, your comment is unpublished.
    carl · 4 years ago
    No worries I figured it out and set as a string
  • To post as a guest, your comment is unpublished.
    carl · 4 years ago
    Hey guys what am i missing, I get 'Compile error - Variable not defined' for the XTitleId in Excel 2013 :cry:
  • To post as a guest, your comment is unpublished.
    Peter · 4 years ago
    Brilliant! Thanks a lot!!!!
  • To post as a guest, your comment is unpublished.
    Mansoor · 4 years ago
    Thanks for a brilliant Piece of Program. Works LIKE a CHARM..."WLC"
  • To post as a guest, your comment is unpublished.
    Tony V · 4 years ago
    Is there a way to change multiple hyperlink "text to display" at the same time?
  • To post as a guest, your comment is unpublished.
    Lasse A · 4 years ago
    Thank thanks thanks !!!!!!!
    you saved me for 2 days of work here
  • To post as a guest, your comment is unpublished.
    Dylan · 4 years ago
    mauricio-

    You are awesome! Thanks! Also, for another report I'll need it to just update the links on only specified tabs, is that possible?
  • To post as a guest, your comment is unpublished.
    Dylan · 5 years ago
    How would I change this in order to update hyperlinks that link to references within a workbook rather than external web addresses?
    • To post as a guest, your comment is unpublished.
      mauricio · 5 years ago
      Just needed the same, try these changes:

      Sub ReplaceHyperlinks()
      'Updateby20140220
      Dim Wb As Workbook
      Dim Ws As Worksheet
      Dim xHyperlink As Hyperlink
      Dim xOld As String, xNew As String

      xTitleId = "CambiaLink"
      'Set Ws = Application.ActiveSheet
      Set Wb = Application.ActiveWorkbook
      xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
      xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
      For Each Ws In Wb.Worksheets
      'Application.ScreenUpdating = False
      For Each xHyperlink In Ws.Hyperlinks
      Debug.Print ("voy " & xHyperlink.SubAddress)
      xHyperlink.SubAddress = Replace(xHyperlink.SubAddress, xOld, xNew)
      Next
      Next
      Application.ScreenUpdating = True
      End Sub
  • To post as a guest, your comment is unpublished.
    gav · 5 years ago
    thanks!!!! :lol: that helped a great deal.
  • To post as a guest, your comment is unpublished.
    Kid Jägerskiöld · 5 years ago
    Hi, this seems to work great but some characters (for example "\" and "%"). In my case I have hyperlink adresses like [../../../../../../Application%20Data/Microsoft/2012/Relacom%20Uki-Kantvik-Tallinna-Pietari-Uki_saate151012.xls] and I need to get the start [../../../../../../Application%20Data/Microsoft/] away from the adress from hundreds of links. The beginning of the links are the same, but the ends are different. Do you have any good advice?
  • To post as a guest, your comment is unpublished.
    Eric Ong · 5 years ago
    Hi, could you give me the VB code if i need to change links in Powerpoint instead of excel?

    Thanks
  • To post as a guest, your comment is unpublished.
    alex ximenez · 5 years ago
    love it, you save me a ton of work.
  • To post as a guest, your comment is unpublished.
    Tarun Varshne · 5 years ago
    Ammazing it saved my lots of effort.