VBA数组排序和字典结合的案例? 50
如何从左边得到右边的结果?左边位置不能更改,分店内有空行,不能删除,先前写的代码是从下到上取数,但是不完善,要求如下:右边管理人员在上面,且管理人员最上面的一个排名第一,...
如何从左边得到右边的结果?左边位置不能更改,分店内有空行,不能删除,先前写的代码是从下到上取数,但是不完善,要求如下:右边管理人员在上面,且管理人员最上面的一个排名第一,管理人员之后在从第一分店向下排名,如何写代码?请各大神帮忙,谢谢!!!
展开
1个回答
展开全部
最简单的排序,须借助excel的函数:
Sub SmallSort()
Dim a(-1 To 3), i, b()
For i = LBound(a) To UBound(a)
a(i) = Int(Rnd * 10) '赋值给a()
Next
Rows("5:6").Delete
[a5].Resize(1, UBound(a) - LBound(a) + 1) = a
'下面是排序方法,结果放在b()内
ReDim b(1 To UBound(a) - LBound(a) + 1)
For i = 1 To UBound(b)
b(i) = Application.WorksheetFunction.Small(a, i) 'Small为从小到大,large为从大到小
Next
[a6].Resize(1, UBound(b)) = b
End Sub
Sub SmallSort()
Dim a(-1 To 3), i, b()
For i = LBound(a) To UBound(a)
a(i) = Int(Rnd * 10) '赋值给a()
Next
Rows("5:6").Delete
[a5].Resize(1, UBound(a) - LBound(a) + 1) = a
'下面是排序方法,结果放在b()内
ReDim b(1 To UBound(a) - LBound(a) + 1)
For i = 1 To UBound(b)
b(i) = Application.WorksheetFunction.Small(a, i) 'Small为从小到大,large为从大到小
Next
[a6].Resize(1, UBound(b)) = b
End Sub
追问
不行哦,你运行一下是什么结果
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询