Excelですべてのハイパーリンクをすばやく一覧表示するにはどうすればよいですか？

ワークシートを使用するときは、その中に多くのハイパーリンクを作成することがあり、テキストがどこにリンクしているかを知る必要がある場合があります。 それらをXNUMXつずつクリックすると、面倒で時間がかかります。 ワークシートにテキストとハイパーリンクアドレスを含むすべてのハイパーリンクを一覧表示できれば、Excelですべてのハイパーリンクを簡単に確認できます。

選択したすべてのハイパーリンクをVBAコードで一覧表示

Kutools forExcelを使用してハイパーリンクからすべての実際のアドレスを抽出します

選択したすべてのハイパーリンクをVBAコードで一覧表示

1。 リストするハイパーリンクを含む範囲を選択します。

2に設定します。 OK をクリックします。 Developer>ビジュアルベーシック、新しいです アプリケーション用のMicrosoftVisual Basic ウィンドウが表示されたら、をクリックします インセット>モジュール、および次のコードをモジュールに入力します。

Option Explicit
Private Function GetHyperAddy(Cell As Range) As String
On Error Resume Next
GetHyperAddy = Cell.Hyperlinks.Item(1).Address
If Err.Number <> 0 Then GetHyperAddy = "None"
On Error GoTo 0
End Function
Sub DistillHyperlinks()
Dim HyperAddy As String, cl As Range, wsTarget As Worksheet, clSource As Range
Application.ScreenUpdating = False
Set clSource = Selection
On Error Resume Next
Set wsTarget = Sheets("Hyperlink List")
If Err.Number <> 0 Then 
Set wsTarget = Worksheets.Add
With wsTarget
.Name = "Hyperlink List"
With .Range("A1")
.Value = "Location"
.ColumnWidth = 20
.Font.Bold = True
End With
With .Range("B1")
.Value = "Displayed Text"
.ColumnWidth = 25
.Font.Bold = True
End With
With .Range("C1")
.Value = "Hyperlink Target"
.ColumnWidth = 40
.Font.Bold = True
End With
End With
Set wsTarget = Sheets("Hyperlink List")
End If
On Error GoTo 0
For Each cl In clSource
HyperAddy = GetHyperAddy(cl)
If Not HyperAddy = "None" Then
With wsTarget.Range("A65536").End(xlUp).Offset(1, 0)
.Parent.Hyperlinks.Add Anchor:=.Offset(0, 0), _
Address:="", SubAddress:=(cl.Parent.Name) & "!" & (cl.Address)
.Offset(0, 1).Value = cl.Text
.Hyperlinks.Add Anchor:=.Offset(0, 2), Address:=HyperAddy
End With
End If
Next cl
wsTarget.Select
End Sub

3。 次に、をクリックします ボタンを押してコードを実行します。 そして、すべてのハイパーリンクは、という新しいワークシートに表示されます。 ハイパーリンクリスト。 スクリーンショットを参照してください：

Kutools forExcelを使用してハイパーリンクからすべての実際のアドレスを抽出します

Kutools for Excelさん ハイパーリンクを変換する この機能を使用すると、ハイパーリンクから実際のアドレスをすばやく抽出できます。

インストールした後 Kutools for Excel、次のようにしてください:( 今すぐExcel用Kutoolsを無料でダウンロード )

1。 実際の宛先を抽出するハイパーリンクを選択します。

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

3。 の中に ハイパーリンクを変換する ダイアログボックスで ハイパーリンクアドレスはセルの内容を置き換えます オプションから タイプを変換する セクションをクリックし、結果を下に配置するセルを指定します。 結果の範囲 セクション、スクリーンショットを参照してください：

4。 次に、をクリックします OK ボタンをクリックすると、すべての実際のアドレスがハイパーリンクから抽出されました。スクリーンショットを参照してください。

Note: ソース範囲を変換する：このオプションをオンにすると、抽出された結果は元のセル範囲に配置されます。

今すぐExcel用Kutoolsを無料でダウンロード

関連記事：

Excelですべてのハイパーリンクをすばやく削除するにはどうすればよいですか？