Excel에서 끊어진 링크를 제거하는 방법(3가지 간단한 방법)

Microsoft Excel 강력한 소프트웨어입니다. Excel 도구와 기능을 사용하여 데이터 세트에서 수많은 작업을 수행할 수 있습니다. 많은 기본 Excel 함수가 있습니다. 수식을 만드는 데 사용할 수 있습니다. 많은 교육 기관 및 비즈니스 회사는 Excel 파일을 사용하여 귀중한 데이터를 저장합니다. 때때로 우리는 여러 Excel 파일을 연결하여 다른 소스의 데이터를 입력합니다. 그러나 여러 가지 이유로 링크가 끊어질 수 있습니다. 그러면 작업 중인 워크시트에 오류가 발생합니다. 따라서 깨진 링크를 제거해야 합니다. 이 기사에서는 3 을 보여줍니다. 깨진 링크를 제거하는 간단한 방법 엑셀에서 .

다음 워크북을 다운로드하여 스스로 연습하세요.

Excel의 끊어진 링크 소개

종종 데이터 세트에는 다른 워크시트나 통합 문서에 대한 링크가 포함되어 있습니다. 그러나 링크가 끊어지는 몇 가지 이유가 있습니다. 가능한 원인은 소스 워크시트 또는 통합 문서의 이름 변경입니다. , 소스 파일의 위치 변경 및 파일 삭제 . 이러한 경우가 발생하면 링크가 활성 워크시트에서 정확하게 수행되지 않습니다. 오류가 발생합니다. 이러한 링크를 깨진 링크라고 합니다. .

다음 데이터세트에서 D5 셀이 D5 에 연결됨 시트1 의 셀 샘플 파일.

그러나 샘플 에서 소스 시트 이름이 변경되었습니다. 파일. 그래서 #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 키를 누릅니다. 코드를 실행합니다.
• 결과적으로 매크로 대화 상자가 나타납니다.
• 링크 제거 선택 실행을 누릅니다. .

• 따라서 새 워크시트가 반환됩니다.
• 여기에 소스를 사용할 수 없음이 표시됩니다. 결과에서 .

• 동시에 동일한 워크시트에 경고 대화 상자가 표시됩니다.
• 확인 누르기 .

• 마침내 끊어진 링크가 제거됩니다.

자세히 알아보기: 소스를 찾을 수 없을 때 Excel에서 링크를 끊는 방법(4가지 방법)

3. 명명된 범위에서 끊어진 링크 제거

다시, 명명된 범위에 끊어진 링크가 있을 수 있습니다. 해당 링크를 지우려면 아래 절차를 따르십시오.

단계:

• 우선 수식 탭으로 이동합니다.
• 그런 다음 정의된 이름 을 선택하십시오. 드롭다운에서 이름 관리자를 선택합니다. .

• 이름 관리자 대화 상자가 나타납니다.
• 깨진 링크를 선택합니다.
• 그런 다음 삭제를 누릅니다. .

• 이러한 방법으로 끊어진 링크를 제거할 수 있습니다.

자세히 알아보기: Excel에서 끊어진 링크를 찾는 방법(4가지 빠른 방법)

결론

이제부터는 깨진 링크를 제거 할 수 있습니다. 엑셀에서 위에서 설명한 방법을 따릅니다. 계속 사용하고 작업을 수행할 더 많은 방법이 있으면 알려주십시오. ExcelDemy 팔로우 이와 같은 기사를 더 보려면 웹사이트를 방문하세요. 아래 의견 섹션에 의견, 제안 또는 쿼리가 있는 경우 삭제하는 것을 잊지 마십시오.

관련 기사

• 파일을 열기 전에 Excel에서 링크를 끊는 방법(간단한 단계 사용)
• 내 Excel 링크가 계속 끊어지는 이유는 무엇입니까? (솔루션이 필요한 3가지 이유)
• Excel에서 깨진 하이퍼링크를 수정하는 방법(5가지 방법)
• [수정됨!] Excel에서 링크 끊김이 작동하지 않음(7개 솔루션)
• Excel에서 연결을 끊고 값을 유지하는 방법(3가지 쉬운 방법)