求助如何计算托盘数

gwjkkkkk

Option Explicit
Sub test()
    Dim ar, br(), i&, j&, p&
    With Range([F4], Cells(Rows.Count, "F").End(xlUp))
        ar = .Resize(.Rows.Count + 1)
    End With
    p = 1
    For i = 1 To UBound(ar) - 1
        If ar(i + 1, 1) <> ar(p, 1) Then
            r = r + 1
            ReDim Preserve br(1 To r)
            br(r) = i - p + 1
            p = i + 1
        End If
    Next i
    ReDim ar(1 To 2, 0)
    For i = 1 To UBound(br)
        If br(i) = 12 Then ar(1, 0) = ar(1, 0) + 1
        If br(i) = 9 Then ar(2, 0) = ar(2, 0) + 1
    Next i
    [Q2:Q3] = ar
End Sub

gwjkkkkk

数组法参考一下。。。