Cũng có ý nghĩ giống anh @HieuCD:
Cũng làm cột phụ: với quy đổi chung 1 giờ giống nhau, nếu cùng số xe có lên xuống hàng trong vòng 2 tiếng, và giữ công thức bài #5 của @excel_lv1.5
- Cùng số xe, nhưng nếu có chở cả "Ngô" và "Khoai", cứ lên xuống hàng cách nhau trong vòng 2 tiếng thì tính là 1 chuyến.
- Do yêu cầu của chủ thớt không rõ ràng nên nếu tính chuyến là 19, tính đầu xe chở thì thành 17
Chúc anh em ngày vui.
Trong 2 giờ làm 2 chuyến chắc không xảy ra, góp công thức cho vuiNếu tính số chuyến thì có thể bỏ điều kiện>0 =SUM((COUNTIF(OFFSET(E8,,,ROW(E8:E74)-7),E8:E74)=1)*V8:V74) Ctrl+Shift+Enter!
Một số ít trường hợp vẫn có thể bị sai.
Chúc bạn 1 ngày vui !

Dùng cột phụ hơi dài một chút

Nếu trong 2 giờ có nhiều chuyến, dùng VBA cho dể
Mã:
Sub GPE()
Dim sArr(), Res(1 To 3, 1 To 1)
Dim i As Long, sRow As Long, k As Long
Dim SoXe, LoaiHang, Ngay
sArr = Range("E8:T" & Range("E1000000").End(xlUp).Row + 1).Value2
sRow = UBound(sArr)
For i = 1 To sRow - 1
SoXe = sArr(i, 1)
If SoXe <> Empty Then
LoaiHang = sArr(i, 6): Ngay = sArr(i, 16)
For k = i + 1 To sRow
If Ngay > sArr(k, 16) + 2 / 24 Then Exit For
If sArr(k, 1) = SoXe Then
If sArr(k, 6) = LoaiHang Then Exit For
Res(1, 1) = Res(1, 1) + 1
If LoaiHang = "Khoai" Then
Res(2, 1) = Res(2, 1) + sArr(i, 12)
Res(3, 1) = Res(3, 1) + sArr(k, 12)
Else
Res(2, 1) = Res(2, 1) + sArr(k, 12)
Res(3, 1) = Res(3, 1) + sArr(i, 12)
End If
sArr(k, 1) = Empty
Exit For
End If
Next k
End If
Next i
Range("Y2:Y4") = Res
End Sub