Xóa lỗi không break link được trong excel

Trong quá trình chuyển đổi, copy giữa các file, các sheet…, một trong các tình trạng thường gặp là lỗi không break link được trong excel, nghĩa là đã chọn Data – Xóa Break link nhưng link vẫn tồn tại

Tham khảo được ý kiến chuyên gia, có 01 cách khá dễ sử dụng, các bạn làm như sau

Bước 1: Mở file excel bị nhiễm virus với tình trạng này
Bước 2: Tạo module mới bằng cách bấm Alt+F11 để vào cửa sổ soạn thảo visual basic, sau đó vào Insert/Module
Bước 3: Dán đoạn code sau vào module mới tạo

Sub DeleteErrName() On Error Resume Next Dim NSh As Name, i As Integer Dim OldStatus As Boolean, ThongBao As String OldStatus = Application.DisplayStatusBar Sheets.Add.Name = “ShName” For Each NSh In ActiveWorkbook.Names If InStr(1, NSh.RefersToR1C1, “#”) > 0 Or _ InStr(1, NSh.RefersToR1C1, “\”) > 0 Then i = i + 1 Application.StatusBar = “Deleted : ” & Format(i, “#,##0″) & _ ” Deleting…: ” & NSh.Name Sheets(“ShName”).Range(“A” & i).Value = NSh.Name Sheets(“ShName”).Range(“B” & i).Value = ” ” & NSh.RefersToR1C1 NSh.Delete End If Next If i > 0 Then _ ThongBao = ThongBao & Chr(13) & Chr(13) & ” -” & Format(i, “#,##0″) & ” Names da xoa”MsgBox ThongBao, vbInformation, “GPE” Application.StatusBar = “” Application.DisplayStatusBar = OldStatus End Sub

Đoạn code tại đây Code Edit link Diet Name

Bước 4: Bấm Ctrl+S để ghi lại
Bước 5: Bấm F5 để chạy Macro vừa tạo và đợi đến khi hệ thống báo thành công

Biên soạn: Manabox

Bản tin này chỉ mang tính chất tham khảo, không phải ý kiến tư vấn cụ thể cho bất kì trường hợp nào.