1drv.ms
Em xóa Name rác nó chạy rất lâu mới xong được.Anh có biết vì sao không ạ.Xóa 1 cái mà phải đợi tới 1 phút à.
Chỉ 1 lần đợi 1 phút mà xóa được hết name rác thì có sao đâu.
Trong đó có 3000 Name rác chắc mất 3000 phút.Nên không khả thi lắm.
Vào Options, Formulas chuyển Workbook Calculation sang Manual thì có thể sẽ xóa nhanh đấy
Em đã bỏ tắt toàn bộ rồi mà vẫn chậm không hiểu vì sao.
Do copy dữ liệu từ những File từ phần mềm xuất ra nên nó mang sang những thứ không mong muốn, trong File có quá nhiều Link đến File khác, chứa nhiều Name rác, Style rác. Xem hình để hiểu
Em biết là nó quá nhiều rác nhưng mà khi xóa nó mất nhiều thời gian quá anh.Nó xóa 1 cái name mà mất 1 phút à.
Sub StyleKill()
Application.Calculation = xlCalculationManual
Dim bienStyle As Style
On Error Resume Next
For Each bienStyle In ActiveWorkbook.Styles
If Not bienStyle.BuiltIn Then
If bienStyle.Name <> "1" Then bienStyle.Delete
End If
Next bienStyle
Application.Calculation = xlCalculationAutomatic
End Sub
Sub DeleteName()
Application.Calculation = xlCalculationManual
On Error Resume Next
For Each nem In ActiveWorkbook.Names
If InStr(1, nem, "#REF") > 0 Or InStr(1, nem, "/") > 0 Or InStr(1, nem, "\") > 0 Then
Names(nem.Name).Delete
End If
Next
Application.Calculation = xlCalculationAutomatic
End SubCảm ơn anh chị nhé cho code vào nó xóa name vẫn chậm như vậy.Còn code xóa style thì không xóa được style lần nào cũng thông báo là đã xóa được căn đấy cái.
Vâng em cảm ơn anh nhé.File của bạn chứa rất nhiều yếu tố gây chậm:
1. Có quá nhiều Name rác, tôi đã xóa giúp, có hơn 3000 name rác
2. Có nhiều style không phải từ microsoft, tôi xóa hết những style kiểu này; có hơn 16000 style
3. Có hơn 400 object ở sheet đầu tiên, tôi xóa hết.
4. Có công thức tham chiếu vòng (circular reference) cái này bạn phải tự xử.
@Thanhlam2425
Ngoài 4 thứ như kê ra ở bài 12, trong File bạn còn 2 thứ nữa cũng là nguyên nhân làm cho File bạn chậm chạp, đó là:
