Bạn có thường xuyên làm việc với các trang tính chứa hàng chục (hoặc hàng trăm)

của các ô được đặt tên, và hầu hết những tên đó là không cần thiết? Xóa tên là một nhiệm vụ rất lớn, nhưng loại bỏ những tên bạn không cần có thể làm cho sổ làm việc của bạn nhỏ hơn và hiệu quả hơn. Vấn đề là, làm thế nào để bạn loại bỏ một lúc nhiều cái tên không cần thiết? Bạn chắc chắn có thể xóa từng cái một, nhưng quá trình như vậy nhanh chóng trở nên mệt mỏi.

Một giải pháp khả thi là chỉ cần tạo một sổ làm việc mới và sao chép các ô từ sổ làm việc cũ sang sổ làm việc mới. Đánh dấu các ô trong sổ làm việc cũ, sử dụng Ctrl + C để sao chép chúng, sau đó dán chúng vào trang tính trong sổ làm việc mới. Thao tác này sẽ sao chép hầu hết mọi thứ từ sổ làm việc cũ — công thức, định dạng, v.v. Nó không mang lại bản sao qua cài đặt in hoặc tên phạm vi. Nhiệm vụ duy nhất còn lại sau đó là xác định lại một vài tên bạn muốn trong sổ làm việc mới.

Nếu bạn thích làm việc với sổ làm việc cũ (sổ có tất cả các tên), tốt nhất là tạo macro sẽ thực hiện việc xóa tên cho bạn. Bạn cần một macro cho phép bạn xóa tất cả các tên ngoại trừ những tên bạn muốn giữ lại. Sau đây là một cách tiếp cận đơn giản để hoàn thành nhiệm vụ này:

Sub DeleteSomeNames()

Dim vKeep     Dim nm As Name     Dim x As Integer     Dim AWF As WorksheetFunction

'Add Names to keep here     vKeep = Array("Name1", "Name2")



Set AWF = Application.WorksheetFunction     For Each nm In ActiveWorkbook.Names         x = 0         On Error Resume Next         x = AWF.Match(nm.Name, vKeep, 0)

On Error GoTo 0         If x = 0 Then             nm.Delete         End If     Next     Set AWF = Nothing End Sub

Trước khi sử dụng macro, hãy sửa đổi dòng tạo mảng vKeep.

Chỉ cần nhập các tên bạn muốn giữ lại trong mảng, mỗi tên được bao quanh bởi dấu ngoặc kép và phân tách bằng dấu phẩy. (Trong ví dụ được hiển thị ở đây, tên “Name1” và “Name2” sẽ được giữ nguyên.) Macro sẽ lặp lại tất cả các tên trong sổ làm việc và sử dụng hàm Match để xem tên có phải là một trong mảng hay không. Nếu không, thì nó sẽ bị xóa.

Nếu bạn thích sử dụng giải pháp của bên thứ ba để quản lý tên trong sổ làm việc của mình, thì một lựa chọn tuyệt vời là bổ trợ Trình quản lý tên, được viết bởi Jan Karel Pieterse. Bạn có thể tìm thêm thông tin về phần 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 (2419) á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: