用VBA对数组进行排序的探讨

yuhe0008

贴个从严格意义上说核心不是VBA的代码

Sub test()
Set x = CreateObject("scriptcontrol")
x.Language = "jscript"
x.eval "function ss(arr){return arr.split(',').sort(function(a,b){return a.localeCompare(b)})}"
ab = Join(Application.Transpose([a1:a12]), ",")
aaa = x.Run("ss", ab)
[e1:e12] = Application.Transpose(Split(aaa, ","))
End Sub

raulerini

先收藏起来。暂时还看不懂。

FnG

学习高手的方法

厦门行

学习一下