作者：绿色风
分类：
时间：2022-08-18
浏览：407
楼主
chrisfang |
VBA里面没有现成的Sort方法可以使用，VBA里面要对数组进行排序，现有的通常做法：
1，通过单元格赋值以后利用工作表里的Sort方法进行排序，
2，通过SQL实现，也需要调用单元格区域存放数据，
3，直接写循环语句通过算法来实现。
除了上述方法以外，借助一些其他语言工具与VBA相结合，也能利用现成的排序功能来实现数组排序，而不需要借助表格。
例如JavaScript：
JavaScript里面也有Sort方法，可以拿来现成使用，示例代码如下：- Sub 文本升序()
- Set js = CreateObject("msscriptcontrol.scriptcontrol")
- js.Language = "javascript"
- arr = Application.Transpose(Range("A1:A10"))
- temp = Join(arr, ",")
- js.addcode "function aa(bb){js=bb.split(',');js.sort();return js;}"
- sortarr = js.eval("aa('" & temp & "')")
- Debug.Print sortarr
- End Sub
- Sub 文本降序()
- Set js = CreateObject("msscriptcontrol.scriptcontrol")
- js.Language = "javascript"
- arr = Application.Transpose(Range("A1:A10"))
- temp = Join(arr, ",")
- js.addcode "function aa(bb){js=bb.split(',');js.sort();js.reverse();return js;}"
- sortarr = js.eval("aa('" & temp & "')")
- Debug.Print sortarr
- End Sub
- Sub 数值升序()
- Set js = CreateObject("msscriptcontrol.scriptcontrol")
- js.Language = "javascript"
- arr = Application.Transpose(Range("A1:A10"))
- temp = Join(arr, ",")
- js.addcode "function aa(bb){js=bb.split(',');js.sort(function(a,b){return a-b;});return js;}"
- sortarr = js.eval("aa('" & temp & "')")
- Debug.Print sortarr
- End Sub
- Sub 数值降序()
- Set js = CreateObject("msscriptcontrol.scriptcontrol")
- js.Language = "javascript"
- arr = Application.Transpose(Range("A1:A10"))
- temp = Join(arr, ",")
- js.addcode "function aa(bb){js=bb.split(',');js.sort(function(a,b){return a-b;});js.reverse();return js;}"
- sortarr = js.eval("aa('" & temp & "')")
- Debug.Print sortarr
- End Sub
.NET里面有SortedList类也可以用来实现排序，但需要系统支持Framework
示例代码如下：
- Sub Sortlist()
- Set objSortedlist = CreateObject("System.Collections.Sortedlist")
- For i = 1 To 10
- objSortedlist.Add Range("A" & i).Value, Range("A" & i).Value
- Next i
- For i = 0 To objSortedlist.Count - 1
- Debug.Print objSortedlist.GetKey(i)
- Next
- End Sub
除了SortedList类，还有ArrayList也可以用
示例代码如下：- Sub Arraylist()
- Set objArrayList = CreateObject("System.Collections.ArrayList")
- For i = 1 To 10
- objArrayList.Add Range("A" & i).Value
- Next i
- objArrayList.Sort
- For i = 0 To objArrayList.Count - 1
- Debug.Print objArrayList(i)
- Next
- End Sub
|
2楼
Rongson_Chart |
 |
3楼
xyh9999 |
好好学习 |
4楼
じ☆潴の︵ゞ |
 |
5楼
bluexuemei |
调用JAVASCRIPT进行中文排序的话是按照UNICODE码来排序的,而不是按照拼音来排序的 |
6楼
水星钓鱼 |
强大，牛 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一