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
复制代码
还有其他什么好方法，欢迎大家支招。
VBA里面没有现成的Sort方法可以使用，VBA里面要对数组进行排序，现有的通常做法： 1，通过单元格赋值以后利用工作表里的Sort方法进行排序， 2，通过SQL实现，也需要调用单元格区域存放数据， 3，直接写循环语句通过算法来实现。除了上述方法以外，借助一些其他语言工具与VBA相结合，也能利用现成的排序功能来实现数组排序，而不需要借助表格。 例如JavaScript：JavaScript里
我们平时用的表格
排序
，只相对来说是在在表格
中
的升序降序。今天就好奇如果系统
中
实现
排序
他是怎么
实现
的呢。
经过一番折腾查找，真是一看吓一跳，真是感觉蚂蚁看大象，发现
排序
分为：
今天仅整理了最简单的两种
排序
。。。
先来看下定义和
实现
的
方法
吧。
选择
排序
（Selection sort）是一种简单直观的
排序
算法。它的工作原理是：第一次从待
排序
的数据元素
中
选出最小（或最大）的一个元素，存放在序列的起始位置，然后再从剩余的未
排序
元素
中
寻找到最小（大）元素，然后放到已
排序
的序列的末尾。以此类推，直到全部待
排序
的数据
快速
排序
是最常见的
排序
之一,其
排序
方式容易理解,
排序
代码也容易
实现
,
排序
速度快,很受欢迎.
首先在了解快速
排序
之前我们先了解一下冒泡
排序
,冒泡
排序
是相邻元素之间两两对比,按小数前大数后的规律调整两数的位置,经过多轮对比以后,即可完成
排序
.宏观来看,其实就是大数往后小数往前的一种
排序
方式,微观上冒泡
排序
是一个个的对比.快速
排序
是冒泡
排序
的改进版型,快速
排序
其实是将整个数据串以一个基准点分成大小两边,宏观上看也是大数往后小数往前,微观上,快排相对于冒泡一个个的对比而言是一种”批量操作”了.
现在我们来看看快
Sheets("sheet1").Select
Row = Sheets("sheet1").UsedRange.Rows.count
col = Sheets("sheet1").UsedRange.Columns.count
ReDim arr(1 To Row, 1 To 6)
arr = Range("a1:F" & Row)
arr = bubblesort(arr, 0, 2, 2)
Range("j1:O" &...
冒泡
排序
（Bubble Sort），是一种计算机科学领域的较简单的
排序
算法。
它重复地走访过要
排序
的元素列，依次比较两个相邻的元素，如果顺序（如从大到小、首字母从Z到A）错误就把他们交换过来。走访元素的工作是重复地进行直到没有相邻元素需要交换，也就是说该元素列已经
排序
完成。
这个算法的名字由来是因为越小的元素会经由交换慢慢“浮”到数列的顶端（升序或降序排列），就如同碳酸饮料
中
二氧化碳的气泡最终会上浮到顶端一样，故名“冒泡
排序
”。
比较相邻的元素。如果第一个比第二个大，就交换他们
Sub SortArray(arr As Variant, col As Long)
Dim i As Long, j As Long, temp As Variant
For i = LBound(arr, 1) To UBound(arr, 1)
For j = i + 1 To UBound(arr, 1)
If arr(i, col) > arr(j, col) Then
temp = arr(i, col)
arr(i, col) = arr(j, col)
arr(j, col) = temp
End If
Next j
Next i
End Sub
上面的代码
中
，arr 参数是要
排序
的二维
数组
，col 参数是要
排序
的列。
