Lọc dữ liệu chỉ từ điều kiện ngày

[envidi231086]

Hi các anh chị GPEX
Em có vấn đề xíu nhờ anh chị giúp đỡ ah, e có bảng dữ liệu, giờ e muốn lọc 1 số dòng từ dữ liệu đó mà điều kiện chỉ là ngày tháng năm. E làm bảng ví dụ theo file đính kèm.
Mong Anh/ Chị đặt công thức giúp e thử nhé.
Em cảm ơn nhiều

 

[hocexcel_1991]

Hi các anh chị GPEX
Em có vấn đề xíu nhờ anh chị giúp đỡ ah, e có bảng dữ liệu, giờ e muốn lọc 1 số dòng từ dữ liệu đó mà điều kiện chỉ là ngày tháng năm. E làm bảng ví dụ theo file đính kèm.
Mong Anh/ Chị đặt công thức giúp e thử nhé.
Em cảm ơn nhiều

J4=IFERROR(INDEX($B$3:$D$6,AGGREGATE(15,6,ROW($1:$4)/($E$3:$E$6=$K$2),ROW($A1)),COLUMN(A$1)),"")

 

[phulien1902]

Hi các anh chị GPEX
Em có vấn đề xíu nhờ anh chị giúp đỡ ah, e có bảng dữ liệu, giờ e muốn lọc 1 số dòng từ dữ liệu đó mà điều kiện chỉ là ngày tháng năm. E làm bảng ví dụ theo file đính kèm.
Mong Anh/ Chị đặt công thức giúp e thử nhé.
Em cảm ơn nhiều

Bạn có thể tham khảo với 1 lối mòn cũ:

Sub Test()
    Dim a(), b(), i As Long, k As Long, dk As Long, LR As Long
    With Sheet1
        a = .Range("B3", .Range("B10000").End(3)).Resize(, 4).Value
        LR = UBound(a)
    End With
    ReDim b(1 To LR, 1 To 3)
    With Sheet1
        dk = Range("K2")
        For i = 1 To LR
            If a(i, 4) = dk Then
                k = k + 1
                b(k, 1) = a(i, 1): b(k, 2) = a(i, 2): b(k, 3) = a(i, 3)
            End If
        Next i
        .Range("J4:L10000").ClearContents
        .Range("J4:L10000").Borders.LineStyle = 0
        If k Then
            With Sheet1
                .Range("J4").Resize(k, 3) = b
                .Range("J4").Resize(k, 3).Borders.LineStyle = 1
            End With
        End If
    End With
End Sub

 

[envidi231086]

J4=IFERROR(INDEX($B$3:$D$6,AGGREGATE(15,6,ROW($1:$4)/($E$3:$E$6=$K$2),ROW($A1)),COLUMN(A$1)),"")

Cảm ơn anh chị, các cột cần công thức là J, K, L , Vậy 2 cột còn lại K, L cũng tương tự hay sao ạ?

 

[kokano90]

Hi các anh chị GPEX
Em có vấn đề xíu nhờ anh chị giúp đỡ ah, e có bảng dữ liệu, giờ e muốn lọc 1 số dòng từ dữ liệu đó mà điều kiện chỉ là ngày tháng năm. E làm bảng ví dụ theo file đính kèm.
Mong Anh/ Chị đặt công thức giúp e thử nhé.
Em cảm ơn nhiều

hi vọng đúng ý bạn

Option Explicit

Sub GPE()
Dim arr, i&, lRow&, KQ, K&, j&
With Sheets("sheet1")
    lRow = .Range("B" & Rows.Count).End(xlUp).Row
    arr = .Range("B3:E" & lRow).Value2
    ReDim KQ(1 To UBound(arr, 1), 1 To 3)
    For i = 1 To UBound(arr, 1)
        If arr(i, 4) = Range("K2").Value Then
            K = K + 1
            KQ(K, 1) = arr(i, 1)
             KQ(K, 2) = arr(i, 2)
              KQ(K, 3) = arr(i, 3)
        End If
        Next i
   
End With
    Range("J4:L65000").ClearContents
    If K Then Range("J4:L4").Resize(K).Value = KQ
End Sub