ExcelでURLテキストをクリック可能なハイパーリンクに変換するにはどうすればよいですか？

ワークシートに複数のURLがあり、それらがリンクされていない場合、次のスクリーンショットに示すように、リンクされていないすべてのURLをクリック可能なハイパーリンクに変換する必要があります。 もちろん、XNUMXつずつダブルクリックしてクリック可能にすることもできますが、URLが多い場合は時間がかかります。 リンクされていない複数のURLをExcelで自動的にクリック可能なハイパーリンクに変換するにはどうすればよいですか？

URLテキストをVBAコードでクリック可能なハイパーリンクに変換する

Kutools for Excelを使用して、URLテキストをクリック可能なハイパーリンクに変換します

URLテキストをVBAコードでクリック可能なハイパーリンクに変換する

次のVBAコードを使用する以外に、Excelでこの問題を解決する効果的な方法は他にないようです。

1。 クリック可能なハイパーリンクに変換するURLテキストの範囲を選択します。

2。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

3に設定します。 OK をクリックします。 インセット > モジュール、モジュールウィンドウに次のコードを貼り付けます。

Sub ConvertToHyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
Next
End Sub

4。 次に、 F5 キーを押してコードを実行し、範囲を選択するためのポップアップダイアログを表示して、[ OK、および選択したリンクされていないURLは、クリック可能なハイパーリンクに変換されています。 スクリーンショットを参照してください：

Kutools for Excelを使用して、URLテキストをクリック可能なハイパーリンクに変換します

たぶん、VBAコードはあなたにとっていくつか難しいです、ここで、私はあなたに多機能ツールを紹介することができます-Kutools for Excelそのと ハイパーリンクを変換する 機能を使用すると、次の操作をすばやく処理できます。

• ハイパーリンクから実際のアドレスを抽出します。
• URLテキストをクリック可能なハイパーリンクに変換する

あなたがインストールしている場合 Kutools for Excel、次のようにしてください。

1。 クリック可能なハイパーリンクに変換するURLテキストの範囲を選択します。

2に設定します。 OK をクリックします。 クツール > リンク > ハイパーリンクを変換する、スクリーンショットを参照してください：

3。 の中に ハイパーリンクを変換する ダイアログボックスで セルの内容がハイパーリンクアドレスを置き換えます、クリック からのボタン 結果の範囲 結果を入れるセルを指定します。

4。 そして、 OK、選択したすべてのプレーンテキストリンクがクリック可能なハイパーリンクに変換されました。 スクリーンショットを参照してください：

注意：

1.実際のアドレスを元の範囲に戻したい場合は、以下を確認してください。 ソース範囲を変換する.

2.ハイパーリンクが現在のドキュメントにリンクされている場合は、確認してください ハイパーリンクはこのドキュメント内の場所です オプションを選択します。

クリック ハイパーリンクを変換する この機能について詳しく知るために。

今すぐExcel用のKutoolsをダウンロードして無料トライアル！

  デモ：Kutools for Excelを使用して、URLテキストをクリック可能なハイパーリンクに変換します

関連記事：

Excelのハイパーリンクから実際のアドレスを抽出するにはどうすればよいですか？