VBA中实现数组排序的多种方法

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

复制代码

还有其他什么好方法，欢迎大家支招。