Xoá dữ liệu trong hộp Name

[nmh_phocu]

Cứu mình với
Hộp Define/Name trong Insert ở Excel có rất rất nhiều tên của dãy linh tinh, xoá từng cái mất rất nhiều thời gian, mình cũng chẳng hiểu từ đâu nó có. Giúp mình với : - Xoá tất cả đi để mình lập cái mới.
- Lý do gì mà nhiều cái tinh linh thế, do minh ấn phím lăng nhăng à
Giúp khẩn cấp
Cảm ơn nhiều mũ n lần ( n= vô cùng)

 

[adam_tran]

Bạn có thể vào đây để download Add-In NameManager về để dùng.

http://webketoan.com/thuvien/index.php?subcat=23&PHPSESSID=300f68170b3fcccc347a8e8b24d9776a

Hoặc bạn có thể chạy macro sau:

Sub DelAllName()
Dim nName As Name
On Error Resume Next
If MsgBox("Ban muon xoa het Name khong?", vbYesNo) = vbYes Then
For Each nName In ActiveWorkbook.Names
nName.Delete
Next nName
End If
End Sub

Bạn lưu ý là file xuất hiện những Name lạ, tên như chữ ả rập v...v thì coi chừng file đã bị virus.
Chúc thành công!

 

[nmh_phocu]

Bạn có thể vào đây để download Add-In NameManager về để dùng.

http://webketoan.com/thuvien/index.php?subcat=23&PHPSESSID=300f68170b3fcccc347a8e8b24d9776a

Hoặc bạn có thể chạy macro sau:

Sub DelAllName()
Dim nName As Name
On Error Resume Next
If MsgBox("Ban muon xoa het Name khong?", vbYesNo) = vbYes Then
For Each nName In ActiveWorkbook.Names
nName.Delete
Next nName
End If
End Sub

Bạn lưu ý là file xuất hiện những Name lạ, tên như chữ ả rập v...v thì coi chừng file đã bị virus.
Chúc thành công!

Vâng, có thể file của em đã bị nhiễm vi rút, em không diệt được con này, em đã phải sống chung với lũ lâu lắm rồi.
Em đã thử xoá một vài cái nhưng không xoá được.
Lại đành phải sống chung với lũ thôi
Cảm ơn bác nhiều nhiều nha
Em của bác