【Excel VBA】カンタン！複数のハイパーリンクの表示名を一発で変換する

エクセルにハイパーリンクをつけるとき、やたら長いパスになるケースはないでしょうか。
Office365などクラウドサービスから発行されるリンクは特に長い傾向がありますね。

そこで今回はそのようなときに一発でハイパーリンクのリンク先はそのままに表示名だけ短縮表記にする方法をご紹介したいと思います。

やりかた

今回のサンプルは前回ハイパーリンク一括オープンで利用したハイパーリンクリンク一覧をもとにし、そのハイパーリンクの表示名をすべて「HyperLink」にしたいと思います。

ではさっそくやってみましょう。

①「Ctrl」＋「F」で検索ウインドウを表示させ「置換」タブをクリックします。

②「検索する文字列」の「書式」をクリックします。

③書式の選択ウインドウで「フォント」タブをクリックし、「下線」をプルダウンリストから選択し「OK」をクリックます。

④「置換後の文字列」に「HyperLink」と入力します。ここは好みでご自由に設定してもらってかまいません。
入力が終わったら「すべて置換」をクリックします。
※すべての下線入りの文字列が置換されるのでご注意ください。

⑤完成
はい！できましたね！
見た目もすっきりしました！

ハイパーリンクの表示名を一発で変換するマクロ

今回のハイパーリンクの表示名を一発で変換する操作をマクロにした場合は以下のようになります。

Sub ハイパーリンク表示名一括変換()
    Cells.Replace What:="", Replacement:="HyperLink_マクロから置換", LookAt:=xlPart, _
    SearchOrder:=xlByRows, SearchFormat:=True
End Sub

Replacementで置換後の表示名を指定します。
Replacement:=＜こちらに置換後の表示名を指定してください。＞

実行してみましょう。

はい！表示名が変更されてますね。

おわりに

いかがでしょうか。ちょっとしたひと手間でごちゃごちゃのハイパーリンクが見やすくなりますので、ぜひ試してみてください。