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
vba排序函数sort用法
objArrayList.Add Range(“A” & i).Value
Next i
objArrayList.Sort
For i = 0 To objArrayList.Count - 1
Debug.Print objArrayList(i)
Next
End Sub
复制代码
还有其他什么好⽅法，欢迎⼤家⽀招。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。