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

ハイパーリンクを含むセルの範囲があり、次に示すスクリーンショットのように、ハイパーリンクの実際の宛先を確認し、ハイパーリンクからそれらを抽出する必要があるとします。 この問題をすばやく解決する簡単な方法はありますか？ この記事では、複数のハイパーリンクから実際のアドレスを抽出する方法について説明します。

ハイパーリンクの編集機能を使用して、ハイパーリンクから実際のアドレスを抽出します

Kutools forExcelを使用してハイパーリンクから実際のアドレスをすばやく簡単に抽出します

VBAコードを使用してハイパーリンクから実際のアドレスを抽出する

ユーザー定義機能を使用してハイパーリンクから実際のアドレスを抽出する

ハイパーリンクの編集機能を使用して、ハイパーリンクから実際のアドレスを抽出します

ここで、 ハイパーリンクを編集する 関数は、これらの各ハイパーリンクの基になるURLを抽出し、その実際のアドレスを別のセルに配置するのに役立ちます。 あなたはこれを行うことができます：

1。 ハイパーリンクのあるセルを選択して右クリックし、コンテキストメニューから[ ハイパーリンクを編集する、スクリーンショットを参照してください：

2。 と ハイパーリンクを編集する ダイアログボックスが表示されたら、選択してコピーします（Ctrlキー+ C）からのURL全体 住所 ダイアログボックスのフィールド。

3。 次に、ダイアログボックスを閉じて、実際のアドレスを任意のセルに貼り付けます。

Note：この方法では、毎回XNUMXつのハイパーリンクアドレスしか抽出できませんが、複数のハイパーリンクを抽出する必要がある場合は、この機能を繰り返し適用する必要があります。

Kutools forExcelを使用してハイパーリンクから実際のアドレスをすばやく簡単に抽出します

これがと呼ばれる便利なツールです Kutools for Excelそのと ハイパーリンクを変換する 機能を使用すると、次の操作をすばやく処理できます。

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

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

1。 抽出する必要のあるハイパーリンクを含む範囲を選択します。

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

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

4。 そして、 OK、実際のアドレスはハイパーリンクから抽出されています。 スクリーンショットを参照してください：

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

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

VBAコードを使用してハイパーリンクから実際のアドレスを抽出する

多くのハイパーリンクの場合、上記の方法は面倒で時間がかかるため、次のVBAコードを使用すると、ハイパーリンクから複数のアドレスを一度にすばやく抽出できます。

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

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

Sub Extracthyperlinks()
'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
    If Rng.Hyperlinks.Count > 0 Then
        Rng.Value = Rng.Hyperlinks.Item(1).Address
    End If
Next
End Sub

3。 次に、 F5 キーを押してコードを実行すると、実際のアドレスを抽出するハイパーリンクを選択するためのダイアログが表示されます。スクリーンショットを参照してください。

4。 次に、をクリックします OK、および選択したセルの内容は、元の範囲の実際のハイパーリンクアドレスに変換されています。 スクリーンショットを参照してください：

ユーザー定義機能を使用してハイパーリンクから実際のアドレスを抽出する

次のユーザー定義関数も、ハイパーリンクから実際のURXNUMXを抽出できます。

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

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

Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
    GetURL = pWorkRng.Hyperlinks(1).Address
End Function

3。 コードを保存してウィンドウを閉じ、空白のセルを選択してこの数式を入力します = GetURL（A2） (A2 ハイパーリンクが含まれているセルです）、を押します 入力します ボタン。 実際のハイパーリンクアドレスが抽出されていることがわかります。

関連記事：

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