vba 为excel排序

liuxf196921

已于 2022-05-11 15:57:18 修改

阅读量1.7k

点赞数

CC 4.0 BY-SA版权

分类专栏： vba 文章标签： vba

于 2022-05-11 15:52:51 首次发布

本文链接：https://blog.youkuaiyun.com/liuxf196921/article/details/124711805

vba 专栏收录该内容

4 篇文章

订阅专栏

这段代码演示了如何在Excel中生成随机数作为测试数据，并对数据进行排序。首先，它填充了两列随机整数，然后使用VBA的Sort方法，按照第3列升序和第2列降序对数据进行排序。

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

Sub Sort()

   Dim iCounter As Integer
   Dim LastNum As Integer
   '生成随机数，作为测试数据。第一列是原来数据，第2列和第3列是生成的随机数
   LastNum = 50
   For iCounter = 1 To LastNum
      Cells(iCounter + 1, 3) = Int(Rnd() * LastNum) + 1
   Next iCounter
   For iCounter = 1 To LastNum
      Cells(iCounter + 1, 2) = Int(Rnd() * LastNum) + 1
   Next iCounter
      

    '排序，第一行为标题，先按第3列排，正序；然后按第2列排，倒序
   
   Columns("A:C").Sort key1:=Range("C1"), order1:=xlAscending, key2:=Range("B1"), order2:=xlDescending, Header:=xlYes
   


End Sub