Excel में ब्रोकन लिंक्स को कैसे हटाएं (3 आसान तरीके)

माइक्रोसॉफ्ट एक्सेल एक शक्तिशाली सॉफ्टवेयर है। हम एक्सेल टूल और फीचर्स का उपयोग करके अपने डेटासेट पर कई ऑपरेशन कर सकते हैं। कई डिफ़ॉल्ट हैं एक्सेल फ़ंक्शन जिसका उपयोग हम सूत्र बनाने के लिए कर सकते हैं। कई शैक्षणिक संस्थान और व्यावसायिक कंपनियां मूल्यवान डेटा संग्रहीत करने के लिए एक्सेल फाइलों का उपयोग करती हैं। कभी-कभी, हम कई एक्सेल फाइलों को लिंक करके विभिन्न स्रोतों से डेटा इनपुट करते हैं। हालाँकि, विभिन्न कारणों से लिंक टूट सकते हैं। इसके परिणामस्वरूप हम जिस वर्कशीट पर काम कर रहे हैं उसमें त्रुटियां होंगी। इसलिए, हमें उन टूटी हुई कड़ियों को हटाना होगा। यह लेख आपको 3 . दिखाएगा टूटी हुई कड़ियों को हटाने के आसान तरीके एक्सेल . में ।

निम्नलिखित कार्यपुस्तिका को स्वयं अभ्यास करने के लिए डाउनलोड करें।

एक्सेल में ब्रोकन लिंक्स का परिचय

अक्सर, हमारे डेटासेट में अन्य कार्यपत्रकों या कार्यपुस्तिकाओं के लिंक होते हैं। हालाँकि, कुछ कारण हैं जिनके कारण लिंक टूट जाते हैं। संभावित कारण हैं स्रोत कार्यपत्रक या कार्यपुस्तिका का नाम परिवर्तन , स्रोत फ़ाइल का स्थान परिवर्तन , और फ़ाइल को हटाना . यदि ये मामले होते हैं, तो लिंक सक्रिय कार्यपत्रक में सटीक रूप से कार्य नहीं करेंगे। इसके परिणामस्वरूप त्रुटियां होंगी। उन कड़ियों को टूटी हुई कड़ियाँ . कहा जाता है ।

निम्नलिखित डेटासेट में, D5 सेल D5 . से जुड़ा हुआ है पत्रक1 . का सेल नमूना . में फ़ाइल।

हालांकि, स्रोत पत्रक का नाम नमूना . में बदल गया है फ़ाइल। और इसीलिए आप #REF! . देख सकते हैं नीचे दिए गए चित्र में त्रुटि। इस लेख में, हम दिखाएंगे कि इस तरह के लिंक को कैसे हटाया जाए।

एक्सेल में ब्रोकन लिंक्स को हटाने के 3 आसान तरीके

एक्सेल में टूटे हुए लिंक को हटाने के कई तरीके हैं। यहां, हम सभी 3 . पर चर्चा करेंगे ऑपरेशन करने के तरीके। तो, साथ चलें।

सबसे आसान प्रक्रिया लिंक संपादित करें कमांड का उपयोग करना है . इसलिए, कार्य करने के लिए नीचे दिए गए चरणों का पालन करें।

कदम:

• सबसे पहले, डेटा टैब पर जाएं।
• अब, लिंक संपादित करें का चयन करें प्रश्न और कनेक्शन समूह से विकल्प।

• परिणामस्वरूप, लिंक संपादित करें डायलॉग बॉक्स पॉप आउट होगा।
• वहां, टूटे हुए लिंक को चुनें।
• फिर, लिंक तोड़ें विकल्प पर क्लिक करें।

• परिणामस्वरूप, आपको एक चेतावनी संवाद बॉक्स मिलेगा।
• लिंक तोड़ें दबाएं ।

• इस प्रकार, यह एक्सेल वर्कशीट में सभी टूटे हुए लिंक को हटा देगा।

और पढ़ें: एक्सेल में लिंक कैसे तोड़ें (3 त्वरित तरीके)

इसके अलावा, आप VBA . लागू कर सकते हैं कार्य करने के लिए कोड। इसलिए, निम्नलिखित प्रक्रिया सीखें।

कदम:

• सबसे पहले, डेवलपर टैब पर जाएं।
• अगला, विजुअल बेसिक . चुनें कोड समूह से विकल्प।

• बाद में, 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 दबाएं कोड चलाने के लिए।
• परिणामस्वरूप, मैक्रो डायलॉग बॉक्स दिखाई देगा।
• चुनें लिंक हटाएं और चलाएं press दबाएं ।

• इस प्रकार, यह एक नई वर्कशीट लौटाएगा।
• वहां, आपको स्रोत अनुपलब्ध . दिखाई देगा परिणाम . में ।

• उसी समय, आपको उसी वर्कशीट में एक चेतावनी डायलॉग बॉक्स मिलेगा।
• ठीक दबाएं ।

• आखिरकार, टूटी कड़ियों को हटा दिया जाएगा।

और पढ़ें: एक्सेल में लिंक कैसे तोड़ें जब स्रोत नहीं मिला (4 तरीके)