=VLOOKUP(B5,hoang,2,0)Chẳng hiểu ý bạn luôn, nếu chỉ cần tên Name thì nghe cũng kỳ lạ, nếu bạn muốn dùng hàm chắc chỉ có thể dùng macro4 thôi. Nói chung nếu có thể bạn gửi file đính kèm lên, nêu mục đích cuối cùng của bạn, có thể việc tìm tên Name chưa hẵn đã giải quyết vấn đề của bạn một cách hiệu quả nhất.
Bạn muốn xuất tên "vùng" dựa vào dữ liệu nào, phải chăng bạn muốn có công thức để trả về kết quả tại ô K3, dựa vào dữ liệu tại K4?
Trời ah, thế mà bạn cứ lòng vòng, bạn lưu ý lần sau nên ghi câu hỏi cần rõ ràng nhé
bạn xem file đính kèmMình đã làm theo hướng dẫn của bài viết này rồi nhưng cái khó ở đây là "tên thành phố" và "tên quận" lại sắp xếp trên cùng 1 cột.
Mình làm theo yêu cầu của bạn
Function timname(ten As String) As StringDim n As Name, i As Long, j As Long, arr()
arr = Range("a3:b" & Range("b65536").End(3).Row)
For i = 1 To UBound(arr)
If arr(i, 2) = ten Then Exit For
Next
j = Range("A" & (i + 2)).End(xlDown).Row - 1
If j = 65535 Then j = Range("b65536").End(3).Row
For Each n In Names
If n.RefersTo = "=Data!" & Range("B" & (i + 3), "B" & j).Address Then
timname = n.Name
Exit For
End If
Next
End FunctionDim n As Name, i As Long, j As Long, arr()
Function timname(ten As String) As String
Dim n As Name, i As Long, j As Long, arr()
arr = Range("a3:b" & Range("b65536").End(3).Row)
For i = 1 To UBound(arr)
If arr(i, 2) = ten Then Exit For
Next
j = Range("A" & (i + 2)).End(xlDown).Row - 1
If j = 65535 Then j = Range("b65536").End(3).Row
For Each n In Names
If n.RefersTo = "=Data!" & Range("B" & (i + 3), "B" & j).Address Then
timname = n.Name
Exit For
End If
Next
End Function
