倒序排序_Excel VBA入门教程 1.10 单元格排序示例

最新推荐文章于 2022-08-08 22:46:25 发布

EmberC

最新推荐文章于 2022-08-08 22:46:25 发布

阅读量1.3k

点赞数

文章标签：倒序排序

本文链接：https://blog.csdn.net/weixin_30529023/article/details/112575386

版权

这篇博客介绍了如何使用Excel VBA进行倒序排序的实战操作，特别是在A1:A20区域生成1-100随机整数后，依据大于50倒序、小于50正序的规则进行排序，并将结果展示在B1:B20。文章还提到了VBA代码助手这一神器，可提升编程效率。

摘要由CSDN通过智能技术生成

举个排序的例子，要对A1:A20的单元格区域进行排序，区域内的内容为1-100的随机整数，规则是大于50的倒序排列，小于50的正序排列。将结果显示在B1:B20的区域里。

在这个例子中，首先定义一个Sub过程来随机生成A1:A20区域的内容。代码如下:

' 创建随机整数，并赋值Sub createRandom(times As Integer)    Dim num As Integer    Dim arr() As Integer    ReDim arr(times)    For num = 1 To times        Randomize (1) ' 初始化随机数        arr(num) = Rnd(1) * 10000  100 ' Rnd随机数函数生成0~1的浮点数        ' 上面使用了运算符进行取整，也可以根据需求使用vba内部的取整函数达到同样的效果        ' arr(num) = Int(Rnd(1) * 100)        ' arr(num) = Round(Rnd(1) * 100)        Range("A" & num) = arr(num)    Next numEnd Sub' 自定义排序Function defSort(rgs) As Variant    Dim arr() As Integer    Dim total As Integer    Dim rg    Dim st As Inte