网上搜到的代码，千篇一律是这个Function Sort(ary)Dim KeepChecking,I,FirstValue,SecondValue KeepChecking = TRUE Do Until KeepChecking = FALSE  KeepChecking = FALSE  For I = 0 to UBound(ary)   If&nb...