Xóa name rác trong file

[Lê Hồng Minh83]

Chào các anh/chị/em diễn đàn
Có người nhờ mình xóa dùm cái name rác mà mình cũng không biết nó đang ở đâu.
Cụ thể: Nếu copy ra thêm 1 sheet từ sheet APRIL bằng cách nhấn ctrl và nhấn chuột kéo thì nó xuất hiện thông báo name đã tồn tại. Minh không tìm thấy nó đang ở đâu để xóa. Vấn đề không xảy ra đối với sheet còn lại
Nhờ các anh/chị các bạn xóa dùm mấy cái name rác này
Cảm ơn!

 

[Cá ngừ F1]

Có code để xóa Name rác đó bạn

 

[phulien1902]

Chào các anh/chị/em diễn đàn
Có người nhờ mình xóa dùm cái name rác mà mình cũng không biết nó đang ở đâu.
Cụ thể: Nếu copy ra thêm 1 sheet từ sheet APRIL bằng cách nhấn ctrl và nhấn chuột kéo thì nó xuất hiện thông báo name đã tồn tại. Minh không tìm thấy nó đang ở đâu để xóa. Vấn đề không xảy ra đối với sheet còn lại
Nhờ các anh/chị các bạn xóa dùm mấy cái name rác này
Cảm ơn!

View attachment 197472

Tôi kéo lại không bị lỗi như bạn, bạn xem hình bên dưới

 

[Lê Hồng Minh83]

Có code để xóa Name rác đó bạn

Cảm ơn bác!
Sau khi search code xóa name rác 1 hồi, nó ra 1 đống name rác
Thật là vi diệu

 

[Cá ngừ F1]

Tôi có dùng code này để xóa name rác, bạn download lại file xem có được ko nhé

Sub Xoa_Name_Rac()
On Error Resume Next
Dim NSh As Name, Wb As Workbook
For Each Wb In Workbooks
    For Each NSh In Wb.Names
        If InStr(1, NSh.RefersToR1C1, "#") > 0 Or _
           InStr(1, NSh.RefersToR1C1, "\") > 0 Then
            NSh.Visible = True
            NSh.Delete         
        End If
    Next
Next
End sub

 

[Lê Hồng Minh83]

Tôi kéo lại không bị lỗi như bạn, bạn xem hình bên dưới
View attachment 197476

Ca này khó

 

[ndu96081631]

Chào các anh/chị/em diễn đàn
Có người nhờ mình xóa dùm cái name rác mà mình cũng không biết nó đang ở đâu.
Cụ thể: Nếu copy ra thêm 1 sheet từ sheet APRIL bằng cách nhấn ctrl và nhấn chuột kéo thì nó xuất hiện thông báo name đã tồn tại. Minh không tìm thấy nó đang ở đâu để xóa. Vấn đề không xảy ra đối với sheet còn lại
Nhờ các anh/chị các bạn xóa dùm mấy cái name rác này
Cảm ơn!

View attachment 197472

Bạn chèn 1 module, cho code dưới đây vào:

Sub UnhideNames()
  Dim N As Name
  For Each N In ThisWorkbook.Names
    N.Visible = True
  Next
End Sub

Chạy code xong, ra ngoài bảng tính, bấm Ctrl + F3 sẽ nhìn thấy names rác. Nếu thấy ngứa mắt, cứ chọn hết các names rồi Delete