選擇前10個最大值

Question

我需要幫助編寫一個循環，在列「F」中找到10個最高值。對於所選的10個最高值中的每一個，我都希望將該值（以及C，D和E列中的關聯值）粘貼到另一個電子表格中。

由於

Answer 1

的Aggregate功能被設計成忽略誤差值（除其他外）。這裏有一個SUBAggregate和Large獲得threashold到triggger您的副本代碼

Sub GetTop10(r As Range) 
    Dim v As Variant 
    Dim t As Variant 
    Dim i As Long 

    ' 14 = function LARGE 
    ' 6 = ignore error values 
    ' 10 = get 10'th largest value 
    t = Application.WorksheetFunction.Aggregate(14, 6, r, 10) 
    v = r 
    For i = 1 To UBound(v, 1) 
     If Not IsError(v(i, 1)) Then 
      If v(i, 1) >= t Then 
       ' copy r.cells(i,-2).resize(1,4) to your other sheet 
      End If 
     End If 
    Next 
End Sub