chrisfang的Excel大全

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

2012-01-18
作者: chrisfang | 分类: ExcelVBA程序 | 阅读: 6,016 次浏览 | Tags:
声明: 本站文章均属原创,转载时请标明出处

VBA里面没有现成的Sort方法可以使用,在ExcelVBA里面要对数组进行排序,现有的通常做法:
1,通过单元格赋值以后利用工作表里的Sort方法进行排序,
2,通过SQL实现,也需要调用单元格区域存放数据,
3,直接写循环语句通过算法来实现。

除了上述方法以外,借助一些其他语言工具与VBA相结合,也能利用现成的排序功能来实现数组排序,而不需要借助表格。
例如JavaScript:

JavaScript里面也有Sort方法,可以拿来现成使用,示例代码如下:

1
2
3
4
5
6
7
8
9
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_r("aa('" & temp & "')")
Debug.Print sortarr
End Sub

 

1
2
3
4
5
6
7
8
9
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_r("aa('" & temp & "')")
Debug.Print sortarr
End Sub

 

1
2
3
4
5
6
7
8
9
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_r("aa('" & temp & "')")
Debug.Print sortarr
End Sub

 

1
2
3
4
5
6
7
8
9
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_r("aa('" & temp & "')")
Debug.Print sortarr
End Sub

 

.NET里面有SortedList类也可以用来实现排序,但需要系统支持Framework

 

1
2
3
4
5
6
7
8
9
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也可以用

1
2
3
4
5
6
7
8
9
10
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

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

发表评论

电子邮件地址不会被公开。 必填项已用*标注

您可以使用这些HTML标签和属性: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>