知方号

知方号

VBA怎么样对于数组进行排序

VBA怎么样对于数组进行排序?

最简单的排序,须借助excel的函数:Sub SmallSort()Dim a(-1 To 3), i, b()For i = LBound(a) To UBound(a) a(i) = Int(Rnd * 10) 赋值给a()NextRows("5:6").Delete[a5].Resize(1, UBound(a) - LBound(a) 1) = a下面是排序方法,结果放在b()内ReDim b(1 To UBound(a) - LBound(a) 1)For i = 1 To UBound(b)b(i) = Application.WorksheetFunction.Small(a, i) Small为从小到大,large为从大到小Next[a6].Resize(1, UBound(b)) = bEnd Sub

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至lizi9903@foxmail.com举报,一经查实,本站将立刻删除。