Sub xyf()
Dim arr()
Dim arr1(1 To 3000)
arr = Range("f1:f600") // 需要排序的列
arr = Application.WorksheetFunction.Transpose(arr)
arrconut = UBound(arr)
b = 1
For a = 1 To arrconut Step 1
If arr(a) < 8000 Then
arr1(b) = arr(a)
b = b + 1
End If
Next
maxban = Application.WorksheetFunction.Max(arr1)
maxnban = Application.WorksheetFunction.Max(arr)
Cells(1, 1).Value = arr(1) //输出列
For i = 1 To arrconut Step 1
If i = arrconut Then
Exit For
End If
fban = arr(i)
sban = arr(i + 1)
If fban <> sban Then
Cells(i + 1, 1).Value = sban //输出列
End If
If fban = sban Then
If fban >= 8000 Then
maxnban = maxnban + 1
Cells(i + 1, 1).Value = maxnban //输出列
Else
maxban = maxban + 1
Cells(i + 1, 1).Value = maxban //输出列
End If
End If
Next
End Sub
