Excelで全ての外部リンクを解除するにはどうすればよいですか？

Excelワークブックを使用する際、特定の目的で他のワークブックへの外部リンクを作成することがあります。しかし、1つずつ解除するのではなく、一度にすべてのリンクを解除するにはどうすればよいでしょうか？

VBAコードを使用してすべての外部リンクを解除する

Kutools for Excelを使用してすべての外部リンク、壊れたリンク、または指定されたリンクを解除する

VBAコードを使用してすべての外部リンクを解除する

正常なリンクとエラーリンクを含むすべての外部リンクを解除したい場合、次のVBAコードが役立ちます。

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

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

Sub BreakLinks()
'Updateby20140318
Dim wb As Workbook
Set wb = Application.ActiveWorkbook
If Not IsEmpty(wb.LinkSources(xlExcelLinks)) Then
    For Each link In wb.LinkSources(xlExcelLinks)
        wb.BreakLink link, xlLinkTypeExcelLinks
    Next link
End If
End Sub

3. そして F5キーを押してコードを実行すると、ワークブック全体のすべての外部リンクが解除されます。

Kutools for Excelを使用してすべての外部リンク、壊れたリンク、または指定されたリンクを解除する

上記のVBAコードは、ワークブック全体のすべてのリンクを強制的に解除しますが、特定のリンク（例えば壊れたリンク）のみを解除したい場合は、このVBAコードは機能しません。

Kutools for Excelの「リンクを検索して解除する」機能を使用すると、すべてのリンク、壊れたリンク、正常なリンク、および指定されたリンクソースのリンクを解除できます。

Kutools for Excelには300以上の便利なExcelツールが含まれています。30日間無制限で無料試用可能です。今すぐ入手

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

1. Kutools > リンク > リンクを検索して解除 をクリックします。スクリーンショットをご覧ください：

2. 「リンクを検索して解除」ダイアログボックスでは、アクティブなワークシート内のすべての外部リンクがリストボックスに表示されます。フィルタードロップダウンリストから解除したいリンクタイプを選択できます。スクリーンショットをご覧ください：

3. この場合、「すべての無効なリンク」を選択すると、壊れたリンクのみがリストボックスに表示されます。スクリーンショットをご覧ください：

4. 次に「 リンクの解除」ボタンをクリックすると、すべての壊れたリンクが選択され、アクティブなワークシートから削除されます。

注：「 セルをアクティブにする」オプションがチェックされている場合、リスト内のリンクをクリックすると、そのリンクを含む特定のセルがワークシート内で見つかり、移動します。

「リンクを検索して解除する」機能についてさらに詳しくはこちらをクリックしてください。

関連記事：

Excelですべてのリンク（外部参照）を見つけて一覧化するにはどうすればよいですか？