วิธีลบลิงค์เสียใน Excel (วิธีง่ายๆ 3 วิธี)

Microsoft Excel เป็นซอฟต์แวร์ที่ทรงพลัง เราสามารถดำเนินการต่างๆ กับชุดข้อมูลของเราโดยใช้เครื่องมือและฟีเจอร์ของ excel มี ฟังก์ชัน Excelเริ่มต้นมากมาย ที่เราสามารถนำมาใช้สร้างสูตรได้ สถาบันการศึกษาและบริษัทธุรกิจหลายแห่งใช้ไฟล์ excel เพื่อจัดเก็บข้อมูลที่มีค่า บางครั้ง เราป้อนข้อมูลจากแหล่งต่างๆ โดยเชื่อมโยงไฟล์ excel หลายไฟล์ อย่างไรก็ตาม ลิงก์อาจใช้งานไม่ได้ด้วยเหตุผลหลายประการ ซึ่งจะส่งผลให้เกิดข้อผิดพลาดในเวิร์กชีตที่เรากำลังดำเนินการอยู่ ดังนั้น เราจะต้องลบลิงก์เสียเหล่านั้นออก บทความนี้จะแสดงให้คุณเห็น 3 วิธีง่ายๆในการ ลบลิงค์เสีย ใน Excel .

ดาวน์โหลดแบบฝึกหัดต่อไปนี้เพื่อฝึกฝนด้วยตัวเอง

แนะนำลิงค์เสียใน Excel

บ่อยครั้ง ชุดข้อมูลของเรามีลิงก์ไปยังเวิร์กชีตหรือเวิร์กบุ๊กอื่น อย่างไรก็ตาม มีสาเหตุบางประการที่ทำให้ลิงก์เสียหาย สาเหตุที่เป็นไปได้คือ เปลี่ยนชื่อของเวิร์กชีตหรือเวิร์กบุ๊กต้นทาง , การเปลี่ยนแปลงตำแหน่งของไฟล์ต้นฉบับ และ การลบไฟล์ . หากเกิดกรณีเหล่านี้ขึ้น ลิงก์จะทำงานไม่ถูกต้องในเวิร์กชีตที่ใช้งานอยู่ จะส่งผลให้เกิดข้อผิดพลาด ลิงก์เหล่านั้นเรียกว่า ลิงก์เสีย .

ในชุดข้อมูลต่อไปนี้ D5 เซลล์เชื่อมโยงกับ D5 เซลล์ของ Sheet1 ใน ตัวอย่าง ไฟล์.

อย่างไรก็ตาม ชื่อแผ่นงานต้นทางมีการเปลี่ยนแปลงใน ตัวอย่าง ไฟล์. และนั่นคือเหตุผลที่คุณมองเห็น #REF! ผิดพลาดตามรูปด้านล่าง ในบทความนี้ เราจะแสดงวิธีลบลิงก์ประเภทดังกล่าว

3 วิธีง่ายๆ ในการลบลิงก์เสียใน Excel

มีหลายวิธีในการลบลิงก์เสียใน 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 วิธีด่วน)

บทสรุป

ต่อจากนี้ไปคุณจะสามารถ ลบลิงก์เสีย ใน Excel ตามวิธีการที่อธิบายไว้ข้างต้น ใช้ต่อไปและแจ้งให้เราทราบหากคุณมีวิธีอื่นๆ ในการทำงาน ติดตาม ExcelDemy เว็บไซต์สำหรับบทความเพิ่มเติมเช่นนี้ อย่าลืมแสดงความคิดเห็น ข้อเสนอแนะ หรือข้อสงสัยหากมีในส่วนความคิดเห็นด้านล่าง

บทความที่เกี่ยวข้อง

• วิธีแบ่งลิงก์ใน Excel ก่อนเปิดไฟล์ (ด้วยขั้นตอนง่ายๆ)
• เหตุใดลิงก์ Excel ของฉันจึงหยุดทำงาน (3 เหตุผลพร้อมวิธีแก้ไข)
• วิธีแก้ไขไฮเปอร์ลิงก์ที่ใช้งานไม่ได้ใน Excel (5 วิธี)
• [แก้ไขแล้ว!] ตัวแบ่งลิงก์ไม่ทำงานใน Excel (7 โซลูชัน)
• วิธีแบ่งลิงก์ใน Excel และเก็บค่าไว้ (3 วิธีง่ายๆ)