Tìm địa chỉ của ô chứa dữ liệu theo điều kiện (1 người xem)

[hiénlinh197]

Nhờ các bạn giúp đỡ vấn đề như file đính kèm
Cảm ơn các bạn!

 

[snow25]

Nhờ các bạn giúp đỡ vấn đề như file đính kèm
Cảm ơn các bạn!

Bạn thử cái này xem nhé.

Function laydiachi(ByVal mang As Range, ByVal dk As String)
        Dim t As Range
        For Each t In mang
           If t.Value = dk Then
              laydiachi = t.Address(0, 0)
              Exit Function
           End If
        Next
        laydiachi = "khong thay"
End Function

=laydiachi($A$1:$B$31,H4)

 

[hiénlinh197]

Bạn thử cái này xem nhé.

Function laydiachi(ByVal mang As Range, ByVal dk As String)
        Dim t As Range
        For Each t In mang
           If t.Value = dk Then
              laydiachi = t.Address(0, 0)
              Exit Function
           End If
        Next
        laydiachi = "khong thay"
End Function

=laydiachi($A$1:$B$31,H4)

Thật là tuyệt vời
Cảm ơn bạn @snow25

 

[Phuocam]

Góp vui bằng công thức mảng:

=ADDRESS(INT(MAX(IF($A$1:$B$31=H4,ROW($A$1:$B$31)*1000+COLUMN($A$1:$B$31)))/1000),
MOD(MAX(IF($A$1:$B$31=H4,ROW($A$1:$B$31)*1000+COLUMN($A$1:$B$31))),1000),4)

Kết thúc bằng Ctrl+shift+Enter

 

[hiénlinh197]

Góp vui bằng công thức mảng:

=ADDRESS(INT(MAX(IF($A$1:$B$31=H4,ROW($A$1:$B$31)*1000+COLUMN($A$1:$B$31)))/1000),
MOD(MAX(IF($A$1:$B$31=H4,ROW($A$1:$B$31)*1000+COLUMN($A$1:$B$31))),1000),4)

Kết thúc bằng Ctrl+shift+Enter

Cảm ơn bạn
phuocam

Bài đã được tự động gộp: 12/7/19

Bạn thử cái này xem nhé.

Function laydiachi(ByVal mang As Range, ByVal dk As String)
        Dim t As Range
        For Each t In mang
           If t.Value = dk Then
              laydiachi = t.Address(0, 0)
              Exit Function
           End If
        Next
        laydiachi = "khong thay"
End Function

=laydiachi($A$1:$B$31,H4)

Bạn @snow25 cho mình mình hỏi thêm là công thức có thể sửa để xắp xếp dữ liệu tìm được theo thứ tự tăng dần được không?