メインコンテンツへスキップ

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。 次に、をクリックします doc-乗算-計算-3 ボタンを押してコードを実行します。 そして、すべてのハイパーリンクは、という新しいワークシートに表示されます。 ハイパーリンクリスト。 スクリーンショットを参照してください:

doc-list-all-hyperlinks


矢印青い右バブル Kutools forExcelを使用してハイパーリンクからすべての実際のアドレスを抽出します

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

Kutools for Excel : 300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます. 

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

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

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

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

doc-list-all-hyperlinks

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

doc-list-all-hyperlinks

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

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


関連記事:

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

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
seems you forgot to tell folks to select a range. if I select a range of cells it creates the list, otherwise I get an empty list like yael did.
This comment was minimized by the moderator on the site
This was a life saver. For anyone looking to have the hyperlink display where documents are stored on a network path, this should work for you. I didn't select anything, followed the steps, and it created a new sheet with the links expanded which I was able to turn into plain text and use as raw data.
This comment was minimized by the moderator on the site
Hi, It seems that the address selection applies to only web pages and not to other places in the document. - SH
This comment was minimized by the moderator on the site
This is awesome! Is there a way to show the full path? It seems to be truncating the file path a little.
This comment was minimized by the moderator on the site
this is a treasure!!! thank you
This comment was minimized by the moderator on the site
It does not work. Just empty page created
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations