Question

excel vba 求一列数中最大的5个数

求一列数中最大的5个数要用VBA不在公式

Answer 1

你试试吧，假定数据从第1行第1列开始，有个等于情况就没考虑了，你可以自己再想想
Sub Col_max()
Dim Rowmax As Long, i As Integer, j As Integer
Dim Arr() As Variant '声明数组
Dim C_Max(1 To 5) As Double
Rowmax = ActiveSheet.Range("a65536").End(xlUp).Row '求第一列最大行数
ReDim Arr(1 To Rowmax) '动态
For i = 1 To Rowmax '假定数据从第1行开始，循环给数组赋值
Arr(i) = Cells(i, 1).Value
Next
C_Max(1) = WorksheetFunction.Max(Arr) '使用工作表MAX函数求最大值
For j = 2 To 5
C_Max(j) = WorksheetFunction.Match(C_Max(j - 1), Range("a1:a" & Rowmax), 1) '使用MATCH函数逐个求值
Next
End Sub

追问

这个只是返回最大那值！我要的是最大值中是5个数！如1，2，3，4，5，6，7，8，9要返回9，8，7，6，5，4

追答

刚没看清楚，重新修改了一下，等于的情况我也想想，结果有点不对，我再看看

追问

如果可以的话！我要返回它们的单元地址和值

追答

你看看这样，刚忘记排序了，但是等于的情况会不对，我也没想清楚怎么区分，再想想吧。
Sub Col_max()
Dim Rowmax As Long, i As Integer, j As Integer
Dim Arr() As Variant '声明数组
Dim C_Max(1 To 5) As Double
Rowmax = ActiveSheet.Range("a65536").End(xlUp).Row '求第一列最大行数
ReDim Arr(1 To Rowmax) '动态
Range("a1:a" & Rowmax).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal '升序排序
For i = 1 To Rowmax '假定数据从第1行开始，循环给数组赋值
Arr(i) = Cells(i, 1).Value
Next
C_Max(1) = WorksheetFunction.Max(Arr) '使用工作表MAX函数求最大值
For j = 2 To 5
line1 = WorksheetFunction.Match(C_Max(j - 1), Range("a1:a" & Rowmax), 1) '使用MATCH函数逐个求值
C_Max(j) = WorksheetFunction.Index(Range("a1:a" & Rowmax), line1 - 1, 1)
Next

End Sub

追问

没反映！也没有什么结果出来

追答

后来想直接排序了一个个取更好。。

追问

那结果输出在哪里