Excelで多数のテキストURLをアクティブなハイパーリンクに変換するにはどうすればよいですか？

プレーンテキストのURLアドレスのリストがある場合、以下のスクリーンショットに示すように、これらのテキストURLをクリック可能なハイパーリンクとしてアクティブにするにはどうすればよいですか？

数式を使用して多数のテキストURLをアクティブなハイパーリンクに変換する

Kutools for Excelを使用して多数のテキストURLをアクティブなハイパーリンクに変換する

VBAコードを使用して多数のテキストURLをアクティブなハイパーリンクに変換する

数式を使用して多数のテキストURLをアクティブなハイパーリンクに変換する

セルをダブルクリックして個別にハイパーリンクをアクティブ化すると多くの時間がかかるため、いくつかの数式をご紹介しますので、次の手順を行ってください：

結果を出力したい空白のセルにこの数式: =HYPERLINK(A2, A2) を入力し、適用したいセルまでフィルハンドルをドラッグすると、すべてのテキストURLがアクティブなハイパーリンクに変換されます。スクリーンショットをご覧ください：

Kutools for Excelを使用して多数のテキストURLをアクティブなハイパーリンクに変換する

便利なツールであるKutools for Excelには、ハイパーリンクの変換機能があり、これを使用すると、多数のテキストURLをクリック可能なハイパーリンクに迅速に変換したり、ハイパーリンクのテキスト文字列から実際のハイパーリンクアドレスを抽出することができます。

Kutools for Excelをインストールした後は、次の手順を行ってください：

1. アクティブにしたいテキストURLが含まれるセルを選択します。

2. 次に、Kutools > リンク > ハイパーリンクの変換をクリックしてください。スクリーンショットをご覧ください：

3. 「ハイパーリンクの変換」ダイアログボックスで、「変換タイプ」セクションの「セルの内容をハイパーリンクのアドレスに変換」オプションを選択し、実際のアドレスを元の範囲に配置したい場合は「元の範囲を変換する」をチェックします。スクリーンショットをご覧ください：

4. その後、「OK」ボタンをクリックすると、テキストURLが一度にアクティブになります。スクリーンショットをご覧ください：

注：結果を元のセルではなく別のセルに出力したい場合は、「元の範囲を変換する」のチェックを外し、以下のスクリーンショットに示すように、結果範囲から結果を出力したいセルを選択してください：

今すぐKutools for Excelをダウンロードして無料でお試しください！

VBAコードを使用して多数のテキストURLをアクティブなハイパーリンクに変換する

以下のVBAコードもこのタスクを解決するのに役立ちますので、次のように行ってください：

1. ALT + F11キーを押して Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. 挿入 > モジュールをクリックし、モジュールウィンドウに次のコードを貼り付けます。

VBAコード：多数のテキストURLをアクティブなハイパーリンクに変換する：

Sub activateHyperlinks()
'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

3. その後、F5キーを押してこのコードを実行すると、クリック可能なハイパーリンクに変換したいセルを選択するよう促すダイアログボックスが表示されます。スクリーンショットをご覧ください：

4. 「OK」ボタンをクリックすると、プレーンテキストのURLがアクティブなハイパーリンクに変換されます。スクリーンショットをご覧ください：