Microsoft Excel là một phần mềm mạnh mẽ. Chúng tôi có thể thực hiện nhiều thao tác trên tập dữ liệu của mình bằng cách sử dụng các công cụ và tính năng của excel. Có nhiều Hàm Excel mặc định mà chúng ta có thể sử dụng để tạo công thức. Nhiều tổ chức giáo dục và công ty kinh doanh sử dụng tệp excel để lưu trữ dữ liệu có giá trị. Đôi khi, chúng tôi nhập dữ liệu từ các nguồn khác nhau bằng cách liên kết nhiều tệp excel. Tuy nhiên, các liên kết có thể bị hỏng vì nhiều lý do khác nhau. Điều đó sẽ dẫn đến lỗi trong trang tính mà chúng tôi đang nghiên cứu. Vì vậy, chúng tôi sẽ cần phải loại bỏ những liên kết bị hỏng. Bài viết này sẽ cho bạn thấy 3 các phương pháp đơn giản để Xóa các liên kết bị hỏng trong Excel .
Tải xuống sách bài tập sau để tự thực hành.
Giới thiệu về Liên kết bị hỏng trong Excel
Thông thường, tập dữ liệu của chúng tôi chứa các liên kết đến các trang tính hoặc sổ làm việc khác. Tuy nhiên, có một số lý do khiến các liên kết bị phá vỡ. Các nguyên nhân có thể là do Thay đổi tên của trang tính hoặc sổ làm việc nguồn , thay đổi vị trí của tệp nguồn và xóa tệp . Nếu những trường hợp này xảy ra, các liên kết sẽ không hoạt động chính xác trong trang tính đang hoạt động. Nó sẽ dẫn đến lỗi. Các liên kết đó được gọi là liên kết bị hỏng .
Trong tập dữ liệu sau, D5 ô được liên kết với D5 ô của Trang tính1 trong Mẫu tệp.
Tuy nhiên, tên trang tính nguồn đã được thay đổi trong Mẫu tập tin. Và đó là lý do tại sao bạn có thể thấy #REF! trong hình dưới đây. Trong bài viết này, chúng tôi sẽ hướng dẫn cách xóa các loại liên kết như vậy.
3 phương pháp đơn giản để loại bỏ các liên kết bị hỏng trong Excel
Có nhiều cách để loại bỏ các liên kết bị hỏng trong excel. Ở đây, chúng ta sẽ thảo luận về tất cả 3 các phương pháp thực hiện hoạt động. Vì vậy, hãy cùng theo dõi.
1. Loại bỏ các liên kết bị hỏng thông qua lệnh chỉnh sửa liên kết trong Excel
Quy trình đơn giản nhất là sử dụng Lệnh chỉnh sửa liên kết . Do đó, hãy làm theo các bước dưới đây để thực hiện tác vụ.
CÁC BƯỚC:
- Đầu tiên, hãy chuyển đến tab Dữ liệu.
- Bây giờ, hãy chọn Chỉnh sửa liên kết từ nhóm Truy vấn &Kết nối.
- Do đó, Chỉnh sửa liên kết hộp thoại sẽ bật ra.
- Ở đó, hãy chọn liên kết bị hỏng.
- Sau đó, nhấp vào tùy chọn Break Link.
- Do đó, bạn sẽ nhận được hộp thoại cảnh báo.
- Nhấn Ngắt liên kết .
- Do đó, nó sẽ xóa tất cả các liên kết bị hỏng trong trang tính excel.
Đọc thêm: Cách ngắt liên kết trong Excel (3 phương pháp nhanh)
2. Sử dụng Excel VBA để loại bỏ các liên kết bị hỏng
Hơn nữa, bạn có thể áp dụng VBA mã để thực hiện nhiệm vụ. Do đó, hãy tìm hiểu quy trình sau.
CÁC BƯỚC:
- Trước tiên, hãy chuyển đến tab Nhà phát triển.
- Tiếp theo, chọn Visual Basic từ Nhóm mã.
- Sau đó, trong VBA cửa sổ, nhấp vào Chèn ➤ Mô-đun .
- Sau đó, sao chép mã bên dưới và dán vào hộp Mô-đun.
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
- Tiếp theo, nhấn F5 để chạy mã.
- Do đó, Macro hộp thoại sẽ xuất hiện.
- Chọn RemoveLinks và nhấn Chạy .
- Do đó, nó sẽ trả về một trang tính mới.
- Ở đó, bạn sẽ thấy Nguồn không khả dụng trong kết quả .
- Đồng thời, bạn sẽ nhận được hộp thoại cảnh báo trong cùng một trang tính đó.
- Nhấn OK .
- Cuối cùng, các liên kết bị hỏng sẽ bị loại bỏ.
Đọc thêm: Cách ngắt liên kết trong Excel khi không tìm thấy nguồn (4 cách)
3. Xóa liên kết bị hỏng khỏi phạm vi được đặt tên
Một lần nữa, có thể có các liên kết bị hỏng trong các phạm vi được đặt tên. Làm theo quy trình bên dưới để xóa các liên kết đó.
CÁC BƯỚC:
- Trước hết, hãy chuyển đến tab Công thức.
- Sau đó, chọn Tên được xác định thả xuống và chọn Trình quản lý tên .
- Trình quản lý tên hộp thoại sẽ xuất hiện.
- Chọn liên kết bị hỏng.
- Sau đó, nhấn Xóa .
- Bằng cách này, chúng tôi có thể loại bỏ các liên kết bị hỏng.
Đọc thêm: Cách tìm liên kết bị hỏng trong Excel (4 phương pháp nhanh)
Kết luận
Từ đó, bạn sẽ có thể Xóa các liên kết bị hỏng trong Excel theo các phương pháp được mô tả ở trên. Tiếp tục sử dụng chúng và cho chúng tôi biết nếu bạn có thêm cách để thực hiện nhiệm vụ. Làm theo ExcelDemy trang web cho nhiều bài viết như thế này. Đừng quên để lại nhận xét, đề xuất hoặc truy vấn nếu bạn có bất kỳ câu hỏi nào trong phần bình luận bên dưới.
Các bài viết liên quan
- Cách ngắt liên kết trong Excel trước khi mở tệp (Với các bước đơn giản)
- Tại sao các liên kết Excel của tôi tiếp tục bị hỏng? (3 lý do với giải pháp)
- Cách sửa các siêu liên kết bị hỏng trong Excel (5 cách)
- [Đã sửa!] Liên kết ngắt Không hoạt động trong Excel (7 Giải pháp)
- Cách ngắt liên kết trong Excel và giữ giá trị (3 cách dễ dàng)