Richard có một sổ làm việc mà anh ấy đã sử dụng được một thời gian và nó có khá nhiều tên trong đó (phạm vi được đặt tên, công thức được đặt tên, v.v.). Anh ấy tự hỏi liệu có cách nào dễ dàng để tìm những cái tên không được sử dụng chút nào, vì anh ấy muốn loại bỏ những cái tên đó.

Không có cách nào tích hợp sẵn để loại bỏ những tên không sử dụng này. Tuy nhiên, bạn có thể tạo một macro để thực hiện thủ thuật cho bạn. Điều này dễ dàng thực hiện nhất bằng cách sử dụng phương pháp Tìm để tìm ra tên nào có tham chiếu có thể được “tìm thấy”. Nếu không tìm thấy tham chiếu, thì tên đó không được sử dụng.

Sub RidOfNames()

Dim myName As Name     Dim fdMsg As String

On Error Resume Next     fdMsg = ""

For Each myName In Names         If Cells.Find(What:=myName.Name, _           After:=ActiveCell, _           LookIn:=xlFormulas, _           LookAt:=xlPart, _           SearchOrder:=xlByRows, _           SearchDirection:=xlNext, _           MatchCase:=False, _           SearchFormat:=False).Activate = False Then             fdMsg = fdMsg & myName.Name & vbCr             ActiveWorkbook.Names(myName.Name).Delete         End If     Next myName     If fdMsg = "" Then         MsgBox "No unused names found in the workbook"

Else         MsgBox "Names Deleted:" & vbCr & fdMsg     End If End Sub

Macro bước qua tất cả các phần tử của bộ sưu tập Tên và thực hiện tìm kiếm từng tên. Nếu không tìm thấy tên, thì tên đó sẽ bị xóa. Khi hoàn tất macro, nó sẽ hiển thị một hộp thông báo liệt kê các tên đã bị xóa khỏi sổ làm việc.

Nếu bạn không muốn tạo macro của riêng mình, bạn có thể chọn sử dụng phần bổ trợ miễn phí của Jan Karel Pieterse. Phần bổ trợ, được gọi là Trình quản lý tên, cho phép bạn (đoán xem?) Quản lý tên tốt hơn những gì bạn có thể làm với Excel gốc. Một trong những chức năng mà nó cung cấp là khả năng loại bỏ những tên không còn cần thiết. Bạn có thể tìm thấy bổ trợ tại đây:

http://www.jkp-ads.com/OfficeMarketPlaceNM-EN.asp

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (3312) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: