EXCEL VBA：数组升序、降序.docVIP

EXCEL VBA：数组的升序、降序 本文标签：? HYPERLINK /archives/tag/excel EXCEL?,? HYPERLINK /archives/tag/vba VBA?,? HYPERLINK /archives/tag/%e5%8d%87%e5%ba%8f 升序?,? HYPERLINK /archives/tag/%e6%95%b0%e7%bb%84 数组?,? HYPERLINK /archives/tag/%e9%99%8d%e5%ba%8f 降序 以下的两种数组排序，仅针对数值型的数据方能排序。 ①升序排序的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 IfNex