Làm thế nào để xóa name trong 1file

Liên hệ QC

ltthanhsg2001

Thành viên mới
Tham gia
17/4/07
Bài viết
10
Được thích
3
Trong 1 file thường đặt rất nhiều name, có những name mà tôi không dùng tới hoặc không thích dùng name vì nó làm cho file rất nặng. Bác nào có cách chỉ tôi xóa 1 cái xong toàn bộ name trong file không. Tôi cứ phải vào insert, rồi Define name và xóa từng cái một, rất mất thời gian.
Rất mong được sự chỉ giáo.
Cảm ơn nhiều ;;;;;;;;;;;
 
Chào bạn
Nếu dùng Excel 2007 bạn có thể xoá hàng loạt. Còn không thì dùng thêm Add in Name Manager hoặc ASAP.

TDN
 
Theo mình bạn nên chọn những names lỗi để xóa, chứ dòng code này thì bạn xóa hết toàn bộ
 
Code sưu tầm: Xóa các name lỗi trong excel
Sub RemoveBadNames()

Dim N As Variant
Dim rtn As Variant

For Each N In ActiveWorkbook.Names
If N.RefersTo Like "*[#]REF*" Then
rtn = MsgBox("BAD NAME: Delete name '" & N.Name & "'
refersto: '" & N.RefersTo, vbQuestion + vbYesNo)
'rtn = vbYes
If rtn = vbYes Then N.Delete
ElseIf N.RefersTo Like "*:\*" Then
rtn = MsgBox("EXTERNAL LINK: Delete name '" & N.Name & "'
refersto: '" & N.RefersTo, vbQuestion + vbYesNo)
If rtn = vbYes Then N.Delete
End If
Next

End Sub
 
Theo như có lần Bắp đã nói vụ này thì nếu các bạn dùng code ấy thì phải Enable macro, như thế khá nguy hiểm nếu như file đang nhiểm virus... Hảy kiểm tra thật kỷ file trước khi chạy code nhé!
ANH TUẤN
 
anhtuan1066 đã viết:
Theo như có lần Bắp đã nói vụ này thì nếu các bạn dùng code ấy thì phải Enable macro, như thế khá nguy hiểm nếu như file đang nhiểm virus... Hảy kiểm tra thật kỷ file trước khi chạy code nhé!
ANH TUẤN

Cái code của bạn duongsatdn đó (chưa test) hãy làm thành 1 cái add-ins rồi hãy sử dụng cho file đang cần xoá name (không cần enable macro file này khi mở) thì không sợ virus macro.

TP.
 
Web KT

Bài viết mới nhất

Back
Top Bottom