v/v Giúp đỡ xử lý dữ liệu thống kê đầu cuối

[h5nry]

Hi mọi người,

Nhờ mọi người giải quyết giúp để có thể có được bảng thống kê như trong hình

Millions of Thanks
Henry

 

[hoangminhtien]

Bạn xem trong file đính kèm nhé!

 

[SA_DQ]

Thêm một tham khảo bằng VBA

Option Explicit
Sub Statistic()
 Dim Rng As Range, sRng As Range, dRng As Range, Clls As Range
 
 Dim MyAdd As String
 Set Rng = Range([B2], [B2].End(xlDown))
 Rng.Offset(, 1).NumberFormat = "mm/dd/yyyy"
 For Each Clls In Range([E3], [E3].End(xlDown))
    Set sRng = Rng.Find(Clls.Value)
    If Not sRng Is Nothing Then
        MyAdd = sRng.Address
        Do
            If dRng Is Nothing Then
                Set dRng = sRng.Offset(, 1)
            Else
                Set dRng = Union(dRng, sRng.Offset(, 1))
            End If
            Set sRng = Rng.FindNext(sRng)
        Loop While Not sRng Is Nothing And MyAdd <> sRng.Address
        Clls.Offset(, 1).Value = WorksheetFunction.Min(dRng)
        Clls.Offset(, 2).Value = WorksheetFunction.Max(dRng)
        Set dRng = Nothing:             Set sRng = Nothing
    End If
 Next Clls
End Sub

 

[ndu96081631]

Bạn hoangminhtien dùng công thức:
=MIN(IF($B$4:$B$16=E4,$C$4:$C$16,9.99999999999999E+307))
Chính xác ---> Nhưng thật ra cũng không cần dùng đến số 9.99999999999999E+307 ---> Có thể dùng:
=MIN(IF($B$4:$B$16=E4,$C$4:$C$16,MAX($C$4:$C$16)))
Là đủ!
Sư phụ HYen17 dùng VBA với 2 vòng lập ---> Em nghĩ chỉ cần 1 vòng lập (quét các cell cột E) ... kết hợp với AutoFilter + Sort ngày tháng là có thể lấy ra 1 giá trị MAX và 1 giá trị MIN

 

[h5nry]

Cám ơn tất cả mọi người! Vấn đề đã giải được giải đáp. Một lần nữa cám ơn Diễn Đàn giúp mình thấy công việc thuận tiện hơn!