Excel VBA中实现数组排序的多种方法

网友投稿 1280 2022-12-02

Excel VBA中实现数组排序的多种方法

VBA里面没有现成的Sort方法可以使用,在ExcelVBA里面要对数组进行排序,现有的通常做法:1,通过单元格赋值以后利用工作表里的Sort方法进行排序,2,通过SQL实现,也需要调用单元格区域存放数据,3,直接写循环语句通过算法来实现。

除了上述方法以外,借助一些其他语言工具与VBA相结合,也能利用现成的排序功能来实现数组排序,而不需要借助表格。例如JavaScript:

JavaScript里面也有Sort方法,可以拿来现成使用,示例代码如下:

Excel VBA中实现数组排序的多种方法

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_r("aa(‘" & temp & "’)")Debug.Print sortarrEnd 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_r("aa(‘" & temp & "’)")Debug.Print sortarrEnd 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_r("aa(‘" & temp & "’)")Debug.Print sortarrEnd Sub

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:Excel vba 锁定单元格的代码介绍
下一篇:如何查询Excel注册组织名称
相关文章