Excel で壊れたリンクを削除する方法 (3 つの簡単な方法)

マイクロソフト エクセル 強力なソフトウェアです。 Excel のツールと機能を使用して、データセットに対して多数の操作を実行できます。多くのデフォルトの Excel 関数 があります 数式を作成するために使用できます。多くの教育機関や企業は、Excel ファイルを使用して貴重なデータを保存しています。場合によっては、複数の Excel ファイルをリンクして、さまざまなソースからデータを入力します。ただし、さまざまな理由でリンクが切れる場合があります。これにより、作業中のワークシートでエラーが発生します。したがって、これらの壊れたリンクを削除する必要があります。この記事では 3 を紹介します 壊れたリンクを削除する簡単な方法 エクセルで .

次のワークブックをダウンロードして、自分で練習してください。

Excel のリンク切れの概要

多くの場合、データセットには他のワークシートまたはワークブックへのリンクが含まれています。ただし、リンクが切れる理由がいくつかあります。考えられる原因は、元のワークシートまたはワークブックの名前の変更です。 、ソース ファイルの場所の変更 、およびファイルの削除 .このような場合、リンクはアクティブなワークシートで正確に機能しません。エラーが発生します。これらのリンクはリンク切れと呼ばれます .

次のデータセットでは、 D5 セルは D5 にリンクされています Sheet1 のセル サンプル ファイル。

ただし、ソース シート名は サンプル で変更されました。 ファイル。 #REF! が表示されるのはそのためです。 下図のエラー。この記事では、そのような種類のリンクを削除する方法を示します。

Excel で壊れたリンクを削除する 3 つの簡単な方法

Excel で壊れたリンクを削除するには、いくつかの方法があります。ここでは、すべての 3 について説明します 操作を実行する方法。それでは、フォローしてください。

1. Excel の [リンクの編集] コマンドを使用して壊れたリンクを削除する

最も簡単なプロセスは、リンクの編集コマンド を使用することです .したがって、以下の手順に従ってタスクを実行してください。

手順:

• まず、[データ] タブに移動します。
• [リンクの編集] を選択します。 クエリと接続グループのオプション。

• その結果、リンクの編集 ダイアログ ボックスが表示されます。
• 壊れたリンクを選択してください。
• 次に、[リンクを解除] オプションをクリックします。

• その結果、警告ダイアログ ボックスが表示されます。
• リンクを解除を押します .

• したがって、Excel ワークシート内の壊れたリンクがすべて削除されます。

続きを読む: Excel でリンクを解除する方法 (3 つの簡単な方法)

2. Excel VBA を使用して壊れたリンクを削除する

さらに、 VBA を適用できます タスクを実行するためのコード。したがって、次のプロセスを学びます。

手順:

• まず、[開発者] タブに移動します。
• 次に、Visual Basic を選択します コード グループのオプション。

• その後、VBA で ウィンドウで、挿入 ➤ モジュール をクリックします。 .
• その後、以下のコードをコピーして モジュール ボックスに貼り付けます。

Sub RemoveLinks()
alinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(alinks) Then
Sheets.Add
shtName = ActiveSheet.Name
Set summaryWS = ActiveWorkbook.Worksheets(shtName)
summaryWS.Range("A1") = "sheet"
summaryWS.Range("B1") = "location"
summaryWS.Range("C1") = "function"
summaryWS.Range("D1") = "file"
summaryWS.Range("E1") = "outcome"
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> summaryWS.Name Then
For Each Rng In ws.UsedRange
If Rng.HasFormula Then
For j = LBound(alinks) To UBound(alinks)
filePath = alinks(j) 'LinkSrouces returns full file path with file name
Filename = Right(filePath, Len(filePath) - InStrRev(filePath, "\")) 'extract just the file name
filePath2 = Left(alinks(j), InStrRev(alinks(j), "\")) & "[" & Filename & "]" 'file path with brackets
If InStr(Rng.Formula, filePath) Or InStr(Rng.Formula, filePath2) Then
nextrow = summaryWS.Range("A" & Rows.Count).End(xlUp).Row + 1
summaryWS.Range("A" & nextrow) = ws.Name
summaryWS.Range("B" & nextrow) = Replace(Rng.Address, "$", "")
summaryWS.Hyperlinks.Add Anchor:=summaryWS.Range("B" & nextrow), Address:="", SubAddress:="'" & ws.Name & "'!" & Rng.Address
summaryWS.Range("C" & nextrow) = "'" & Rng.Formula
summaryWS.Range("D" & nextrow) = filePath
summaryWS.Range("E" & nextrow) = linkStatusDescr(ActiveWorkbook.LinkInfo(CStr(filePath), xlLinkInfoStatus))
Exit For
End If
Next j
For Each namedRng In Names
If InStr(Rng.Formula, namedRng.Name) Then
filePath = Replace(Split(Right(namedRng.RefersTo, Len(namedRng.RefersTo) - 2), "]")(0), "[", "") 'remove =' and range in the file path
nextrow = summaryWS.Range("A" & Rows.Count).End(xlUp).Row + 1
summaryWS.Range("A" & nextrow) = ws.Name
summaryWS.Range("B" & nextrow) = Replace(Rng.Address, "$", "")
summaryWS.Hyperlinks.Add Anchor:=summaryWS.Range("B" & nextrow), Address:="", SubAddress:="'" & ws.Name & "'!" & Rng.Address
summaryWS.Range("C" & nextrow) = "'" & Rng.Formula
summaryWS.Range("D" & nextrow) = filePath
summaryWS.Range("E" & nextrow) = linkStatusDescr(ActiveWorkbook.LinkInfo(CStr(filePath), xlLinkInfoStatus))
Exit For
End If
Next namedRng
End If
Next Rng
End If
Next
Columns("A:E").EntireColumn.AutoFit
lastrow = summaryWS.Range("A" & Rows.Count).End(xlUp).Row
For r = 2 To lastrow
If ActiveSheet.Range("E" & r).Value = "Source unavailable" Then
countBroken = countBroken + 1
End If
Next
If countBroken > 0 Then
sInput = MsgBox("Do you want to remove broken links of status 'Source unavailable'?", vbOKCancel + vbExclamation, "Warning")
If sInput = vbOK Then
For r = 2 To lastrow
If ActiveSheet.Range("E" & r).Value = "Source unavailable" Then
Sheets(Range("A" & r).Value).Range(Range("B" & r).Value).ClearContents
dummy = MsgBox(countBroken & " broken links removed", vbInformation)
End If
Next
End If
End If
Else
MsgBox "links absent"
End If
End Sub
Public Function linkStatusDescr(statusCode)
Select Case statusCode
Case xlLinkStatusCopiedValues
linkStatusDescr = "data copied"
Case xlLinkStatusIndeterminate
linkStatusDescr = "status unavailable"
Case xlLinkStatusInvalidName
linkStatusDescr = "wrong name"
Case xlLinkStatusMissingFile
linkStatusDescr = "Source unavailable"
Case xlLinkStatusMissingSheet
linkStatusDescr = "worksheet absent"
Case xlLinkStatusNotStarted
linkStatusDescr = "yet to start"
Case xlLinkStatusOK
linkStatusDescr = "all okay"
Case xlLinkStatusOld
linkStatusDescr = "expired"
Case xlLinkStatusSourceNotCalculated
linkStatusDescr = "yet to compute"
Case xlLinkStatusSourceNotOpen
linkStatusDescr = "inactive source"
Case xlLinkStatusSourceOpen
linkStatusDescr = "active souorce"
Case Else
linkStatusDescr = "status undetected"
End Select
End Function

• 次に F5 を押します コードを実行します。
• したがって、マクロ ダイアログ ボックスが表示されます。
• [リンクの削除] を選択します 実行を押します .

• したがって、新しいワークシートが返されます。
• そこに、利用できないソースが表示されます 結果で .

• 同時に、同じワークシートに警告ダイアログ ボックスが表示されます。
• OK を押します .

• ついに、壊れたリンクが取り除かれます。

続きを読む: ソースが見つからない場合に Excel でリンクを解除する方法 (4 つの方法)

3.名前付き範囲からの壊れたリンクの削除

繰り返しますが、名前付き範囲に壊れたリンクがある可能性があります。これらのリンクを消去するには、以下のプロセスに従ってください。

手順:

• まず、数式タブに移動します。
• 次に、定義済みの名前を選択します ドロップダウンから Name Manager を選択します .

• ネーム マネージャー ダイアログ ボックスが表示されます。
• 壊れたリンクを選択してください。
• その後、削除を押します .

• このようにして、壊れたリンクを取り除くことができます。

続きを読む: Excel で壊れたリンクを見つける方法 (4 つの簡単な方法)

結論

今後、 壊れたリンクを削除 できるようになります エクセルで 上記の方法に従ってください。それらを引き続き使用し、タスクを実行する方法が他にある場合はお知らせください。 エクセルデミーをフォロー このような他の記事のウェブサイト。以下のコメント セクションにコメント、提案、またはクエリがある場合は、忘れずにドロップしてください。

関連記事

• ファイルを開く前に Excel でリンクを解除する方法 (簡単な手順)
• Excel のリンクが壊れ続けるのはなぜですか? (ソリューションの 3 つの理由)
• Excel で壊れたハイパーリンクを修正する方法 (5 つの方法)
• [修正済み!] Excel でリンクを解除できない (7 つの解決策)
• Excel でリンクを解除して値を保持する方法 (3 つの簡単な方法)