EXCELVBA：数组的升序、降序.doc

EXCEL VBA：数组的升序、降序本文标签： EXCEL , VBA , 升序 , 数组 , 降序以下的两种数组排序，仅针对数值型的数据方能排序①升序排序的 VBA 数组Function UP(x()) As Variant()Dim i As Integer, j As Integer, a, d()ReDim sx(LBound(x) To UBound(x)), d(LBound(x) To UBound(x))d = xIf LBound(x) = UBound(x) Thensx = dExit FunctionEnd IfFor i = LBound(x) To UBound(x) - 1For j = i + 1 To UBound(x)If d(j) d(i) Thena = d(j): d(j) = d(i): d(i) = aEnd IfNextNextsx = dEnd Function③针对中文字符的数组排序如果你想针对字符数组进行排序，可参考如下的代码Sub Start() Dim arr() As Variant arr = Array("大", "都", "生", "活", "有", "你", "和", "我")QuickSort2 arr(), 0, UBound(arr) Dim s As String For I = 1 To UBound(arr) s = s & arr(I) & " | " Next MsgBox sEnd Sub Sub QuickSort2(MyArray() As Variant, L, R) Dim tp tp = 1Dim I, J, X, Y I = L J = R X = MyArray((L + R) / 2) While (I L) J = J - 1 Wend If (I <= J) Then Y = MyArray(I) MyArray(I) = MyArray(J) MyArray(J) = Y I = I + 1 J = J - 1 End If gIterations = gIterations + 1 WendIf (L < J) Then Call QuickSort2(MyArray(), L, J) If (I < R) Then Call QuickSort2(MyArray(), I, R)End Sub转载请保留链接: EXCEL VBA：数组的升序、降序。