[已解决]关于选取列中前4位值的方法

dglhdi

如题，在某一列中有10个数，想通过vba的方法选出其中值最大的前4位。请教高手了。

最佳答案

月排行榜 / 总排行榜

wayy

2012-6-21 09:57

1. Sub wayy()
   
2. Dim i As Long
   
3. For i = 1 To 4
   
4.   MsgBox "第" & i & "大值是：" & Application.Large(Range("A1:A10"), i)
   
5. Next
   
6. End Sub

复制代码

跳转到最佳答案楼层

003

可以考虑冒泡排序法

wayy

1. Sub wayy()
   
2. Dim i As Long
   
3. For i = 1 To 4
   
4.   MsgBox "第" & i & "大值是：" & Application.Large(Range("A1:A10"), i)
   
5. Next
   
6. End Sub

复制代码

ppp710715

提取前4名.rar (6.03 KB, 下载次数: 2)

2012-6-21 10:01 上传

点击文件名下载附件 用Large函数。

1. Sub TT()
   
2. Dim arr, ar, x As Integer
   
3. arr = Range("B2:B11")
   
4. ReDim ar(1 To 4, 1 To 1)
   
5. For x = 1 To 4
   
6. ar(x, 1) = Application.Large(arr, x)
   
7. Next
   
8. Range("d1").Resize(4) = ar
   
9. End Sub

复制代码