Làm sao để xóa các names trong Excel

Liên hệ QC

dangtien792002

Thành viên mới
Tham gia
5/12/06
Bài viết
6
Được thích
1
Trong Files Excel của mình đang sử dụng có quá nhiều names. Làm cách nào để xóa hết tất cả các names này một cách nhanh nhất. Vì bình thường mình làm như sau: insert=>name=>define, sau đó mình chọn từng name và xóa, cách này làm rất lâu. Bạn nào biết có thể chỉ giúp mình với.+-+-+-+
 
Chỉnh sửa lần cuối bởi điều hành viên:
dùng macro

nhấn Alt+F11 mở IDE > Insert >Module, gõ vào
Mã:
Sub delname()
    For Each n In ThisWorkbook.Names
        n.Delete
    Next
End Sub

Chạy bằng cách nhấn F5 hay từ Alt + F8

Chúc thành công!
 
Upvote 0
tôi đã làm thử như trên rồi nhưng thấy bao lỗi ở dòng n.Delete
Bạn khắc phục dùm tôi nhé. Thanks!
 
Upvote 0
Dear all,
--------
Nếu bạn sử dụng Excel phiên bản 2007 thì vấn đề này không đáng bận tâm.
Còn nếu bạn phải lập trình thì có thể sửa lại một chút đoạn code của bạn LeanExcel như sau:
Mã:
[LEFT]Sub Names_DeleteAll()
[COLOR=darkgreen]'Khai báo biến n kiểu Name:[/COLOR]
Dim n As Name
For Each n In ThisWorkbook.Names
   n.Delete
Next
End Sub[/LEFT]
Bạn cũng có thể cải tiến thủ tục để chỉ xoá đi những Name bị lỗi #REF hay một dấu hiệu bất kỳ do bạn đưa vào.
 
Upvote 0
Cảm ơn bạn đã chỉ dẫn nhưng rất tiếc nó chỉ xóa được các tên do mình tạo ra. CÒn file bị nhiễm vius nó tạo ra những cái hết sức lạ thì nó không xóa được ví dụ :
nó có tên là h3_ và giá trị của nó là

='\\May2\c\HOA\Dinh muc\[DMUC.XLS]Sheet2'!#REF!
bạn có thể giải quyết giùm mình được không
 
Upvote 0
Web KT
Back
Top Bottom