-1
A
回答
4
的Aggregate
功能被設計成忽略誤差值(除其他外)。這裏有一個SUB
Aggregate
和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
+0
這是完美的,謝謝。 – rjk 2012-01-06 20:26:03
+0
很高興能夠提供幫助,歡迎來到SO。如果這回答你的問題,請接受它(點擊打勾) – 2012-01-06 20:30:58
相關問題
- 1. 選擇前5個最大值 - Oracle
- 2. 選擇多個最大值
- 3. 選擇單個最大值
- 4. 選擇最大值
- 5. 選擇最大值
- 6. 如何在mytable中選擇前5個最大值
- 7. javascript:選擇最大值
- 8. 與最大值選擇行
- 9. SQL選擇最大值
- 10. 選擇具有最大值
- 11. 選擇錄製最大值
- 12. 選擇最大空值
- 13. 最大值+選擇Div
- 14. 選擇最大值的行
- 15. 選擇最大的「n」值
- 16. 最大值選擇在Innerjoin
- 17. 選擇最大值導致
- 18. 選擇每個組的最大值
- 19. 爲每個實體選擇最大值
- 20. Excel - 只選擇一個最大值
- 21. 從表中選擇n個最大值
- 22. MySQL - 選擇多個最大值
- 23. 選擇多個最大值?在Sqlite中?
- 24. 爲多個列選擇最大值?
- 25. 從三個不同的選擇最大查詢中選擇最大值
- 26. 爲每個數據類型選擇前10個觀察值(SAS)
- 27. 爲每個排名選擇前10位
- 28. 選擇前10名,但11個結果
- 29. 在SQLite中選擇前10個計數
- 30. T SQL選擇前10個循環
數據 - 篩選 - 自動篩選。點擊下拉箭頭。選擇「前10名...」。 – GSerg 2012-01-06 17:42:31