【Excel VBA】複数のハイパーリンクの表示名を一括で変換する方法

エクセルにハイパーリンクをつけるときにとても文字数が多くなってしまう場合はないでしょうか。

例えばSharePointやTeamsから発行されるリンクを張り付ける場合などです。

そんな中で、悩むことは、

・ハイパーリンクはそのままに表示名だけを短くしたいが方法がわからない。
・VBAでハイパーリンクの表示名だけ一括変更したいがい方法がわからない。

ですよね。

今回はそんなお悩みを解消する、
ハイパーリンクのリンク先はそのままに表示名だけ短縮表記にする方法について、
ご紹介します。

ハイパーリンクの表示名を変更するイメージ

ハイパーリンクの表示名を変更するイメージについて説明をします。

サンプルでは、表のハイパーリンクの表示名をすべて「HyperLink」にしていきます。

変更されました。

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

基本操作：ハイパーリンクの表示名を変更する

ハイパーリンクの表示名を変更する基本操作について説明をします。

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

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

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

④「置換後の文字列」に「HyperLink」と入力します。

タカヒロ

表示名はご自由に設定してもらってかまいません。

入力が終わったら「すべて置換」をクリックします。
※すべての下線入りの文字列が置換されるのでご注意ください。

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

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

基本操作で行ったハイパーリンクの表示名を一発で変換する操作を

VBAを使い、ワンクリックで処理をしていきましょう。

サンプルコードは以下の通りです。

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

VBAを設定する

VBAを設定していきましょう。

以下の置換後の表示名を指定します。

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

サンプルでは、「HyperLink_マクロから置換」としました。

実行してみましょう。

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

さいごに

いかがでしょうか。

今回は、
ハイパーリンクのリンク先はそのままに表示名だけ短縮表記にする方法について、
まとめました。

ハイパーリンクの表示名を短くするととても見やすくなりますので、
ぜひ試してみてください。

この記事の関連キーワード

こちらの記事の関連キーワード一覧です。クリックするとキーワードに関連する記事一覧が閲覧できます。

タカヒロ

Excelの基礎がスルスル入ってくるAmazonランク1位の優良Excel本です。

この基礎本と応用技が多いエク短と組み合わせれば、短時間で誰よりもExcelが使いこなせるかと思います。

2022/1/21(金)23: 59までAmazon限定の「厳選ショートカットキー」DL特典アリです。　＞詳細を見てみる　