Lấy dữ liệu nếu thỏa điều kiện dữ liệu giống nhau

[th7]

Chào các Bạn,
Mình có file dữ liệu,
Mục đích là tìm và lấy dữ liệu, nếu dữ liệu có và trùng khớp tên với tên mô tả ở Cột thì sẽ lấy dữ liệu tương ứng ở hàng,
Nhờ các bạn xem qua file và hỗ trợ mình với.

 

[snow25]

Chào các Bạn,
Mình có file dữ liệu,
Mục đích là tìm và lấy dữ liệu, nếu dữ liệu có và trùng khớp tên với tên mô tả ở Cột thì sẽ lấy dữ liệu tương ứng ở hàng,
Nhờ các bạn xem qua file và hỗ trợ mình với.

Bạn dùng công thức này xem.

=VLOOKUP(B4,Data!$A$2:$I$12,MATCH(Sort!D4,Data!$A$1:$I$1),0)

 

[th7]

Bạn dùng công thức này xem.

=VLOOKUP(B4,Data!$A$2:$I$12,MATCH(Sort!D4,Data!$A$1:$I$1),0)

Chào bạn snow25
Mình bỏ công thức vào rồi mà nó chưa hiện ra,

Như trên là bị sao vậy nhỉ?

 

[hpkhuong]

Chắc nhầm cột ngày. Định dạng lại cột D là số.

=VLOOKUP(B4,Data!$A$2:$I$12,MATCH(E4,Data!$A$1:$I$1),0)

 

[snow25]

Chào bạn snow25
Mình bỏ công thức vào rồi mà nó chưa hiện ra,
View attachment 211824
Như trên là bị sao vậy nhỉ?

Hi mình không biết dùng hàm excel bạn dùng hàm tự tạo nhé.

Function layngay(ByVal mang As Range, ByVal dk As String) As Date
        Dim arr, i As Long, j As Long
        arr = mang.Value
        For i = 2 To UBound(arr, 1)
            If UCase(arr(i, 1)) = UCase(dk) Then
               For j = 3 To UBound(arr, 2)
                   If Len(arr(i, j)) > 0 Then
                      layngay = arr(1, j)
                      exit for
                   End If
               Next j
           End If
        Next i
End Function

=layngay(Data!$A$1:$I$12,Sort!B4)

 

[th7]

Hi mình không biết dùng hàm excel bạn dùng hàm tự tạo nhé.

Function layngay(ByVal mang As Range, ByVal dk As String) As Date
        Dim arr, i As Long, j As Long
        arr = mang.Value
        For i = 2 To UBound(arr, 1)
            If UCase(arr(i, 1)) = UCase(dk) Then
               For j = 3 To UBound(arr, 2)
                   If Len(arr(i, j)) > 0 Then
                      layngay = arr(1, j)
                      exit for
                   End If
               Next j
           End If
        Next i
End Function

=layngay(Data!$A$1:$I$12,Sort!B4)

Cảm ơn Bạn hỗ trợ nha,