Copy cùng lúc nhiều Name trong Name Box

[viehoai]

Xin hỏi các anh chị có cách nào copy cùng một lúc tất cả các Name trong Name Box ra bảng tính excel không?
Xin cảm ơn các anh chị

 

[ndu96081631]

Xin hỏi các anh chị có cách nào copy cùng một lúc tất cả các Name trong Name Box ra bảng tính excel không?
Xin cảm ơn các anh chị
View attachment 66874

Vào menu Insert\Name\Paste và bấm nút Paste List

 

[viehoai]

Vào menu Insert\Name\Paste và bấm nút Paste List

Cái này nó dán tất cả các name trong Difine Name Sư Phụ à
Có nhiều file trong Difine Name có cả hàng ngàn name nhưng kích vào Name box chỉ có một số name thôi (em cần cái này)
Mong Sư Phụ và các anh chị giúp đỡ

 

[ndu96081631]

Cái này nó dán tất cả các name trong Difine Name Sư Phụ à
Có nhiều file trong Difine Name có cả hàng ngàn name nhưng kích vào Name box chỉ có một số name thôi (em cần cái này)
Mong Sư Phụ và các anh chị giúp đỡ

Để ý sẽ thấy name nào đúng là Range thì mới hiện trong hộp name box
Từ nhận định này, viết code có vấn đề gì đâu:

Sub Test()
  Dim Arr(), N As Name, i As Long
  For Each N In ThisWorkbook.Names
    If TypeName(Evaluate(N.RefersTo)) = "Range" Then
      i = i + 1
      ReDim Preserve Arr(1 To i)
      Arr(i) = N.Name
    End If
  Next
  Range("H1").Resize(i).Value = WorksheetFunction.Transpose(Arr)
End Sub