最初が3行、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」で黄色」になり停止します。F8キーを押すと次の「h.Address = Replace(h.Address, "e:\", "f:\")」で停止します。その状態で「h.Address」にマウスポインタをのせると現在の「h.Address」の値が表示されます。F8押して[Nect]が黄色になった状態でh.Address」にマウスポインタをのせると変更後の値が表示されます。ブレークポイントの解除はストップ[■]を押せば黄色は消えますのでデバック(D) → すべてのブレークポイントの解除(C)で解除されます。何分ソースの状態なので説明が分かりにくいと思います。
回答が的を得ていなかったらご容赦ください、
例:Sheet1のA列から絶対アドレスでリンクしてる場合
1行目 → f:\¥aa.pdf
2行目 → f:\¥bb.pdf
.
.
?行目 → f:\xx.pds
1,対象のExcelファイルをコピーする。
2,コピーしたExcelファイルを開く
3、開発をクリック
4,Visual Basic クリック
5,挿入(I)クリック
6,標準モジュール(M)クリック
7,挿入(I)クリック
8,プロシージャ(P)クリック
9.名前に任意の文字を入力(例:RiLink)してOK
10、Public Sub RiLink() ~ 空白 ~ End Subが表示
11,空白に以下をコピーして貼り付け
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
12,以下完成形
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
13,Public Sub RiLink()をクリックしカーソルを置く
14,実行(▶)をクリックするかファンクションキー(F5)を押す。
* Sheets("Sheet1").Selectはリンクされているシート名(ここではSheet1)
Cells(1, 1).Selectリンクされている最初の行列(ここでは1行A列)
15、コピー元を開き表示 → 整列 → 並べて表示でコピー元、コピーファイルを表示してコピーファイルのheet1をコピー元にコピーする
作成たコピーファイルを保存する場合は、拡張子をxlxmにして保存
補足
たびたびすみません、やはり、うまく行きません 質問ですが >Cells(1, 1).Selectリンクされている最初の行列(ここでは1行A列) ハイパーリンクの最初が3行、F列の場合はCells(3, 6).Selectの記述で宜しいですか (1,のうしろにブランクが必要ですか?