Excelでハイパーリンクの一括置換（指定範囲）
現在、Excel2002を使用しておりますが、ハイパーリンクの一括置換用マクロ作成でつまづいておりますので、詳しい方お願いします。
【Excelデータ】
Ａ Ｂ Ｃ Ｄ ……
１ ★ ★ ★ ★ ……
２ ★ ★ ★ ★ ……
３ ★ ★ ★ ★ ……
： ： ： ： ：
★マークの箇所のデータにURLの途中まで同じハイパーリンクが貼られています。
リンクはhttp://aaa.bbb.ccc/ddd/eee/…
ここで、Ｃ列の１行目から最終行(約１万行)までのハイパーリンクのみ
ddd→FFFとしてhttp://aaa.bbb.ccc/FFF/eee/…
としたかったので、こちらのサイト検索をしてみると
Sub ハイパーリンクの置きかえ()
Dim H As Hyperlink
For Each H In Range("B2:B101").Hyperlinks
H.Address = Replace(H.Address, "\\abc", "\\def")
Next
End Sub
という回答を見つけることが出来ました。
そこで、それを参考にして
Sub macro1()
Dim H As Hyperlink
For Each H In Range("C1:C50000").Hyperlinks
H.Address = Replace(H.Address, "ddd", "FFF")
Next
End Sub
※Ｃ列は約１万行なので５万行まで指定すればよいかと思い、この値にしてます。
とマクロを作成したのですが、
いざ実行してみると、Ｃ列だけではなく、他の列まで全部一括置換してしまいます。
私はＣ列だけを置換したいので、何か良い方法をご存知の方はお願い致します。
Ｃ列だけ他のシートにコピーして一括置換して元の場所に貼り付ける方法も考えたのですが、その方法ですと、Ｄ列を別の文字列に一括置換とかＥ列を更に別の文字列に置換… とした場合の応用がききませんので…
お礼
ご回答ありがとうございます。 錯覚っぽい感じで勘違いしてました。 ちゃんとできました＾＾