|
本帖最后由 zyning 于 2018-4-13 14:15 编辑
谢谢
Sub pinlv()
Dim i%, z1%, x%, z2%, arr, brr
arr = Range("bi1:bi" & [ap65536].End(xlUp).Row)
For i = 1 To UBound(arr)
If Range("bi" & i) = 1 Then z1 = Range("bi" & i).Row
If Range("bi" & i) <> 1 Then z2 = Range("bi" & i).Row
Next i
brr = Application.Frequency(z1, z2)
x = UBound(arr) + 1
Range("bi" & x) = Application.Max(brr)
End Sub
|
|