2018年1月小班排序方法

最新推荐文章于 2020-02-18 13:20:26 发布

lsdkzkald

最新推荐文章于 2020-02-18 13:20:26 发布

阅读量115

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/lbsjs/article/details/90706399

本文介绍了一种使用VBA实现的特殊排序算法，该算法针对特定条件的数据进行处理，包括数据筛选、最大值查找及输出排序后的数据。通过对原始数据进行判断和筛选，实现了有效的排序流程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

2018年1月小班排序方法

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