首页 相关文章 VBA数组的升序、降序

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 = x

If LBound(x) = UBound(x) Then

sx = d

Exit Function

End If

For i = LBound(x) To UBound(x) - 1

[ 查看全文 ]

2016-02-19 标签:

VBA数组的升序、降序的相关文章

手机页面
收藏网站 回到头部