Tìm kiếm giá trị có điều kiện

[Phụ Hồ Lên Phú Hộ]

Xin chào mọi người. Nhờ mọi người chỉ giúp mình công thức hay Code cũng được miễn sao khi gõ [mã code cần tìm] (ô E1) là Number 01, thì sẽ dò tìm từ cột A và kết quả lấy cột B và khi lấy kết quả từ cột B thì dò tiếp tục từ cột A để kết quả cuối cùng sẽ liệt kê là Number 01 - Number 03 - Nb 04 - Number09
Xin cảm ơn mọi người

 

[Phuocam]

Xin chào mọi người. Nhờ mọi người chỉ giúp mình công thức hay Code cũng được miễn sao khi gõ [mã code cần tìm] (ô E1) là Number 01, thì sẽ dò tìm từ cột A và kết quả lấy cột B và khi lấy kết quả từ cột B thì dò tiếp tục từ cột A để kết quả cuối cùng sẽ liệt kê là Number 01 - Number 03 - Nb 04 - Number09
Xin cảm ơn mọi người

Cái này là đi tìm con, cháu, chắt đây:

Public Function TimConChau(ByVal ID As String, ByVal rng As Range) As String
Dim arr, u As Long, i As Long
TimConChau = ID
arr = rng.Value
u = UBound(arr)
Do
    For i = 1 To u
        If arr(i, 1) = ID Then
            arr(i, 1) = ""
            ID = arr(i, 2)
            TimConChau = TimConChau & " - " & ID
            Exit for
        End If
    Next i
Loop While i <= u
End Function

Trong E3, nhập:

=TimConChau(E1,$A$2:$C$8)

.

 

[Phụ Hồ Lên Phú Hộ]

Cái này là đi tìm con, cháu, chắt đây:

Public Function TimConChau(ByVal ID As String, ByVal rng As Range) As String
Dim arr, u As Long, i As Long
TimConChau = ID
arr = rng.Value
u = UBound(arr)
Do
    For i = 1 To u
        If arr(i, 1) = ID Then
            arr(i, 1) = ""
            ID = arr(i, 2)
            TimConChau = TimConChau & " - " & ID
        End If
    Next i
Loop While i <= u
End Function

Trong E3, nhập:

=TimConChau(E1,$A$2:$C$8)

.

Hay thật. Cảm ơn bạn.

 

[VetMini]

Thấy cái vụ con cháu chắt chít thì phải thử chơi đệ quy cho nó máu chứ.