Em muốn lọc dữ liệu theo ngày( từ ngày nọ đến ngày kia) ở bảng tổng (1 người xem)

[phongthu21]

cao nhân chỉ giúp em với ạ, em không biết dùng hàm nào được ạ

 

[Pro speed]

cao nhân chỉ giúp em với ạ, em không biết dùng hàm nào được ạ

Xin chào bạn. Mình là Giáo Sư của các Cao Nhân đây

Sub dsgfdrhg5drh5d()
On Error Resume Next
Dim sArr(), dArr(), Dk1 As Date, Dk2 As Date, I As Long, K As Long, R As Long, Col As Long
Dk1 = Range("C3"): Dk2 = Range("C4") ' fset
sArr = Sheets("Data").Range("A5:Q1000").Value ' etew4y4
R = UBound(sArr)
ReDim dArr(1 To R, 1 To 17) '?ye4wye4
For I = 1 To R
    If sArr(I, 2) >= Dk1 And sArr(I, 2) <= Dk2 Then ' ey4y4ewy4
        K = K + 1
        For Col = 1 To 17 ' ?y5yu5ru5ru
            dArr(K, Col) = sArr(I, Col)
        Next Col
    End If
Next I
' ?ur6tiut6i
Range("A6:O1006").ClearContents
Range("A6").Resize(K, 17) = dArr ' ?uue5
End Sub

bạn thay đổi giá trị ngày của ô C3 và C4 sau đó click vào nút xem