Xin xóa giúp style rác trong file

[g190]

Mình cần xử lý số liệu trong 1 bảng excel nhưng nó quá nặng, thường xuyên bị đơ khó có thể làm việc.
Qua tìm hiểu thì thấy có thể nguyên nhân là do file có quá nhiều style rác, nhưng số lượng lớn không thể xóa thủ công.
Mình đã thử tìm hiểu, nghiên cứu các cách được chỉ dẫn trên mạng nhưng vẫn không thể xóa được các style rác của file.
Vậy mình xin các pro xóa giúp mình số style rác trong file mình gửi đính kèm, hoặc có cách gì làm nó bớt nặng đi được không ạ.
Xin chân thành cảm ơn!

 

[thinhnx22]

Chia sẻ Add-Ins di chuyển nhanh đến các tham chiếu (Open Source chưa hoàn chỉnh)

Mình thấy chủ đề của bác @huuthang_bd cũng rất hay ở link sau: https://www.giaiphapexcel.com/diendan/threads/di-chuy%E1%BB%83n-%C4%91%E1%BA%BFn-c%C3%A1c-tham-chi%E1%BA%BFu-trong-c%C3%B4ng-th%E1%BB%A9c.61708/page-3 Nhưng có lẽ bác ấy chưa hoàn thành add-ins, nay tôi mượn code của bác ấy...

www.giaiphapexcel.com

Bạn xem bài 2, thử tải add-ins explorer.xlam dùng tạm 15 ngày dùng để xóa thử, mình nén 7 zip nhưng không tải lên được file.

 

[Hong.Van]

Mình cần xử lý số liệu trong 1 bảng excel nhưng nó quá nặng, thường xuyên bị đơ khó có thể làm việc.
Qua tìm hiểu thì thấy có thể nguyên nhân là do file có quá nhiều style rác, nhưng số lượng lớn không thể xóa thủ công.
Mình đã thử tìm hiểu, nghiên cứu các cách được chỉ dẫn trên mạng nhưng vẫn không thể xóa được các style rác của file.
Vậy mình xin các pro xóa giúp mình số style rác trong file mình gửi đính kèm, hoặc có cách gì làm nó bớt nặng đi được không ạ.
Xin chân thành cảm ơn!

Đã xóa rất nhiều Name rác và hơn 1800 Style rác, tuy nhiên trong file còn nhiều style lạ
Bỏ ra 1 ngày để làm file mới thì nhiều lúc sẽ tốt hơn

 

[saobekhonglac]

Mình cần xử lý số liệu trong 1 bảng excel nhưng nó quá nặng, thường xuyên bị đơ khó có thể làm việc.
Qua tìm hiểu thì thấy có thể nguyên nhân là do file có quá nhiều style rác, nhưng số lượng lớn không thể xóa thủ công.
Mình đã thử tìm hiểu, nghiên cứu các cách được chỉ dẫn trên mạng nhưng vẫn không thể xóa được các style rác của file.
Vậy mình xin các pro xóa giúp mình số style rác trong file mình gửi đính kèm, hoặc có cách gì làm nó bớt nặng đi được không ạ.
Xin chân thành cảm ơn!

Mở lên thấy báo có virut. Dùng code này xóa thử xem được không

Sub RebuildDefaultStyles()

'The purpose of this macro is to remove all styles in the active
'workbook and rebuild the default styles.
'It rebuilds the default styles by merging them from a new workbook.

'Dimension variables.
   Dim MyBook As Workbook
   Dim tempBook As Workbook
   Dim CurStyle As Style

   'Set MyBook to the active workbook.
   Set MyBook = ActiveWorkbook
   On Error Resume Next
   'Delete all the styles in the workbook.
   For Each CurStyle In MyBook.Styles
      'If CurStyle.Name <> "Normal" Then CurStyle.Delete
      Select Case CurStyle.Name
         Case "20% - Accent1", "20% - Accent2", _
               "20% - Accent3", "20% - Accent4", "20% - Accent5", "20% - Accent6", _
               "40% - Accent1", "40% - Accent2", "40% - Accent3", "40% - Accent4", _
               "40% - Accent5", "40% - Accent6", "60% - Accent1", "60% - Accent2", _
               "60% - Accent3", "60% - Accent4", "60% - Accent5", "60% - Accent6", _
               "Accent1", "Accent2", "Accent3", "Accent4", "Accent5", "Accent6", _
               "Bad", "Calculation", "Check Cell", "Comma", "Comma [0]", "Currency", _
               "Currency [0]", "Explanatory Text", "Good", "Heading 1", "Heading 2", _
               "Heading 3", "Heading 4", "Input", "Linked Cell", "Neutral", "Normal", _
               "Note", "Output", "Percent", "Title", "Total", "Warning Text"
            'Do nothing, these are the default styles
         Case Else
            CurStyle.Delete
      End Select

   Next CurStyle

   'Open a new workbook.
   Set tempBook = Workbooks.Add

   'Disable alerts so you may merge changes to the Normal style
   'from the new workbook.
   Application.DisplayAlerts = False

   'Merge styles from the new workbook into the existing workbook.
   MyBook.Styles.Merge Workbook:=tempBook

   'Enable alerts.
   Application.DisplayAlerts = True

   'Close the new workbook.
   tempBook.Close

End Sub

 

[g190]

Đã xóa rất nhiều Name rác và hơn 1800 Style rác, tuy nhiên trong file còn nhiều style lạ
Bỏ ra 1 ngày để làm file mới thì nhiều lúc sẽ tốt hơn

thank bác, đã nhẹ hơn nhiều, coi như đủ dùng vậy chứ giờ làm file mới cũng chết.

 

[be_09]

Mình cần xử lý số liệu trong 1 bảng excel nhưng nó quá nặng, thường xuyên bị đơ khó có thể làm việc.
Qua tìm hiểu thì thấy có thể nguyên nhân là do file có quá nhiều style rác, nhưng số lượng lớn không thể xóa thủ công.
Mình đã thử tìm hiểu, nghiên cứu các cách được chỉ dẫn trên mạng nhưng vẫn không thể xóa được các style rác của file.
Vậy mình xin các pro xóa giúp mình số style rác trong file mình gửi đính kèm, hoặc có cách gì làm nó bớt nặng đi được không ạ.
Xin chân thành cảm ơn!

Bạn có một thói quen rất là nguy hiểm, đó là:
1/ Tô màu cả dòng, cả cột.
2/ Tô viền cả dòng.
3/ Dùng Hàm để tìm dữ liệu ở nhiều File khác chứa qua nhiều Folder (Cố, nội, cha, con, cháu, chắt) làm tăng dung lượng File và làm cho File ì ạch.
4/ Trong File có quá nhiều Name rác.
5/ Trong File sử dụng hàm cho hết dữ liệu cho từng cột, chỉ nên sử dung cho vài dòng cuối cùng.

Tôi xem xong và góp ý để bạn hiểu mà tránh chứ không xử lý giùm cho bạn.

 

[g190]

Bạn có một thói quen rất là nguy hiểm, đó là:
1/ Tô màu cả dòng, cả cột.
2/ Tô viền cả dòng.
3/ Dùng Hàm để tìm dữ liệu ở nhiều File khác chứa qua nhiều Folder (Cố, nội, cha, con, cháu, chắt) làm tăng dung lượng File và làm cho File ì ạch.
4/ Trong File có quá nhiều Name rác.
5/ Trong File sử dụng hàm cho hết dữ liệu cho từng cột, chỉ nên sử dung cho vài dòng cuối cùng.

Tôi xem xong và góp ý để bạn hiểu mà tránh chứ không xử lý giùm cho bạn.

Bạn có thể nói thêm vì sao những thói quen trên lại nguy hiểm và nên làm như thế nào mới đúng không ạ? Thanks bạn!

 

[be_09]

Bạn có thể nói thêm vì sao những thói quen trên lại nguy hiểm và nên làm như thế nào mới đúng không ạ? Cảm ơn bạn!

Tôi đã nêu rõ ngay chỗ 3/ "làm tăng dung lượng File và làm cho File ì ạch".