Nhờ tư vấn cách xóa name rác

[huuthang_bd]

Tôi có một file có nhiều name rác ẩn mà chưa biết cách nào xóa hết name một cách nhanh nhất. Các name này có tên là những ký tự hoặc các từ khóa mà nếu định nghĩa name theo cách thông thường MS sẽ không cho.
Nhờ mọi người tư vấn cho một đoạn code hoặc cách xóa các name này mà không phải đổi tên từng name.
Cảm ơn!

 

[ThuNghi]

Tôi có một file có nhiều name rác ẩn mà chưa biết cách nào xóa hết name một cách nhanh nhất. Các name này có tên là những ký tự hoặc các từ khóa mà nếu định nghĩa name theo cách thông thường MS sẽ không cho.
Nhờ mọi người tư vấn cho một đoạn code hoặc cách xóa các name này mà không phải đổi tên từng name.
Cảm ơn!

Tôi thử dùng excel 2007 xoá 1 lần sau đó dùng ASAP xóa 1 lần nữa thì cũng chưa hết.

Dùng đại cách nhấn Alt Shift F11 vào Dùng đại cách nhấn Alt Shift F11 vào Microsoft Cript Editor và xóa sạch hết sau đó save lại thì hết. Còn hiểu thì chưa nghĩ ra.

Hình như Alt Shift F11 vào Microsoft Cript Editor chỉ có Ex 2003. Bạn dùng 2003 thử. Tôi đã xoá được rồi. Còn quy trình thì không hiểu.

 

[huuthang_bd]

Tôi thử dùng excel 2007 xoá 1 lần sau đó dùng ASAP xóa 1 lần nữa thì cũng chưa hết.
Dùng đại cách nhấn Alt Shift F11 vào Microsoft Cript Editor và xóa sạch hết sau đó save lại thì hết. Còn hiểu thì chưa nghĩ ra.

Tôi cũng dùng Excel 2007 nhưng sao nhấn tổ hợp phím Alt + Shift + F11 thì không thấy Excel phản ứng gì hết nhỉ?

 

[tungnguyen_kt]

Tôi thử dùng excel 2007 xoá 1 lần sau đó dùng ASAP xóa 1 lần nữa thì cũng chưa hết.

Trước khi dùng ASAP anh chuyển ngày giờ hệ thống xuống năm 2008 thì mới xóa được hết name rác.

 

[yeudoi]

Tôi có một file có nhiều name rác ẩn mà chưa biết cách nào xóa hết name một cách nhanh nhất. Các name này có tên là những ký tự hoặc các từ khóa mà nếu định nghĩa name theo cách thông thường MS sẽ không cho.
Nhờ mọi người tư vấn cho một đoạn code hoặc cách xóa các name này mà không phải đổi tên từng name.
Cảm ơn!

Cái này anh dùng chương trình Tname để xoá là sạch thôi. Đã có gửi lên diễn đàn.

 

[huuthang_bd]

Cái này anh dùng chương trình Tname để xoá là sạch thôi. Đã có gửi lên diễn đàn.

Tôi đã thử rồi nhưng không ăn thua. Hình như chương trình chỉ xóa được các name thông thường, các name có tên đặt biệt thì không xóa được.

 

[Ếch Xanh]

Tôi đã thử rồi nhưng không ăn thua. Hình như chương trình chỉ xóa được các name thông thường, các name có tên đặt biệt thì không xóa được.

Tôi đã thử rồi nhưng không ăn thua. Hình như chương trình chỉ xóa được các name thông thường, các name có tên đặt biệt thì không xóa được.

Tôi dùng Excel 2007 để xóa name rác cho bạn, chọn Filter với Name with error sẽ cho ra các name báo lỗi. Chọn cái name đầu tiên rồi nhấn Shift rồi chọn cái name cuối cùng, delete là đã xóa hết, sau đó Clear Filter đi còn lại các name của Workbook, tôi thấy mấy cái name này hình như cũng là name "dỏm" luôn, tôi lại xóa sạch.

Vẫn chưa hết, tôi lại chạy code hiện name ẩn lên, name rác ẩn còn nhiều gấp đôi name hiện nữa! Thế là chọn tất cả và delete thôi, thao tác không tới 1 phút đâu!

Bạn dùng code này để hiện name:

Sub HienName()
  Dim n As Name
  For Each n In ThisWorkbook.Names
    n.Visible = True
  Next
End Sub

Nhưng tôi vẫn thấy lạ một điều là, sau khi xóa hết name rồi, File của bạn trống trơn, đã thử gọi Goto để tìm Objects, cũng không thấy mà dung lượng vẫn cao hơn những workbook trắng khác, 1 workbook trắng save lại chừng 22-25kb, còn file của bạn sau khi xóa tất cả mà lại nặng gấp 10 lần File trắng. Chắc là còn tiềm ẩn điều gì đó tôi chưa phát hiện!?