Excel 2016 ハイパーリンク一括変更

最初が３行、F列の場合はCells(3, 6).SelectですがCells(z, z).Selectは意味がありません。削除しても構いません。ブランクは不要です。「For Each h In ActiveSheet.Hyperlinks」をマウスでなぞり色を反転させデバック（D)　→　ブレークポイントの設定/解除(T)をすると「For Each h In ActiveSheet.Hyperlinks」は茶色になり左端に茶色の●が表示されます。実行を押すと「For Each h In ActiveSheet.Hyperlinks」で黄色」になり停止します。F８キーを押すと次の「h.Address = Replace(h.Address, "e:\", "f:\")」で停止します。その状態で「h.Address」にマウスポインタをのせると現在の「h.Address」の値が表示されます。F8押して［Nect］が黄色になった状態でh.Address」にマウスポインタをのせると変更後の値が表示されます。ブレークポイントの解除はストップ［■］を押せば黄色は消えますのでデバック（D)　→　すべてのブレークポイントの解除（C）で解除されます。何分ソースの状態なので説明が分かりにくいと思います。

すみません。例の「h.Address = Replace(h.Address, "f:\ ", "e:\ ")」をコピーすると、「"f:\ "」の「f:\」と「”」の間に半角の空白が入っている為上手く文字置き換えが出来ません。現在のh.Address = Replace(h.Address, "f:\ ", "e:\ ")」を削除して次をコピーして同じ場所に貼り付けするか、空白を削除して実行すれば正常に置き換わります。

h.Address = Replace(h.Address, "f:\", "e:\")

１．のコピーはオリジナルファイルを残す為で、必須ではありません。１３はPublic １行目のSub RiLink()から１行１行コンパイル＆実行するためです。１４を実行後なにもかわりません。、デスクトップ画面下のタスクバーのExcelアイコンにマウスを置くとシート画面とVisual　Basic画面が表示されますのでシート画面をクリックし、シート画面に切り換えてシート画面を前面に表示してリンクのセルを右クリック　→　ハイパーリンクの編集（H)　→　アドレス（E)が以下に変更されていることが確認できます。
1行目　f:\¥aa.pdf　　　→　e:\¥aa.pdf
2行目　f:\¥bb.pdf　→　e:\¥bb.pdf
.
.
？行目　f:\xx.pds　→　e:\¥bb.pds

実行終了したことを分かるようにするには「Next h」と「End Sub」間に次ような１行を追加すれば表示されます。Msgbox("一括変更完了")

１５でかわらないのはコピーのしかたの間違いと思います。２つのシートを並べてマクロのあるSheet1をマクロのないシートにドラッグ＆ドロップすればコピーされます。なお、マクロ付エクセルファイルを保存する場合の拡張子はXlsmです。

回答が的を得ていなかったらご容赦ください、
例：Sheet1のA列から絶対アドレスでリンクしてる場合
1行目　→　f:\¥aa.pdf
2行目　→　f:\¥bb.pdf
.
.
？行目　→　f:\xx.pds

１，対象のExcelファイルをコピーする。
２，コピーしたExcelファイルを開く
３、開発をクリック
４，Visual　Basic　クリック
５，挿入（I)クリック
６，標準モジュール（M)クリック
７，挿入（I)クリック
８，プロシージャ（P)クリック
９．名前に任意の文字を入力（例：RiLink)してOK
10、Public Sub RiLink()　～　空白　～　End Subが表示
１１，空白に以下をコピーして貼り付け
Dim h As Hyperlink
Sheets("Sheet1").Select
Cells(1, 1).Select
For Each h In ActiveSheet.Hyperlinks
h.Address = Replace(h.Address, "f:\ ", "e:\ ")
Next h
１２，以下完成形
Public Sub RiLink()
Dim h As Hyperlink
Sheets("Sheet1").Select
Cells(1, 1).Select
For Each h In ActiveSheet.Hyperlinks
h.Address = Replace(h.Address, "f:\ ", "e:\")
Next h
End Sub

１３，Public Sub RiLink()をクリックしカーソルを置く

１４，実行（▶）をクリックするかファンクションキー（F5）を押す。
＊　Sheets("Sheet1").Selectはリンクされているシート名（ここではSheet1）
　　Cells(1, 1).Selectリンクされている最初の行列（ここでは１行A列）
１５、コピー元を開き表示　→　整列　→　並べて表示でコピー元、コピーファイルを表示してコピーファイルのheet1をコピー元にコピーする

作成たコピーファイルを保存する場合は、拡張子をxlxmにして保存

ハイパーリンク一括変更はVBAでしかできないようです。

https://eguweb.jp/excel/converted-link-destination-of-hyperlink-at-once

以下のようなフトもあります。
Excelで一度に複数のハイパーリンクの名前を一括変更　→　https://ja.extendoffice.com/documents/excel/5906-excel-rename-hyperlink.html