[已解决]对最小值进行筛选

陈瑞云

对最小值进行筛选

最佳答案

月排行榜 / 总排行榜

bajifeng

2016-1-1 13:05

1. Sub db() 'bajifeng
   
2. arr = [F449:F492]
   
3. amin = Application.Small(arr, 1)
   
4. Debug.Print amin
   
5. For i = 1 To UBound(arr)
   
6.     If arr(i, 1) = amin Then
   
7.     n = n + 1
   
8.     If n = 1 Then Set Rng = Cells(i + 448, "f").Resize(, 10)
   
9.     Set Rng = Union(Rng, Cells(i + 448, "f").Resize(, 10))
   
10.     End If
    
11. Next
    
12. Rng.Copy Sheets(2).[f461]
    
13. End Sub

复制代码

跳转到最佳答案楼层

bajifeng

1. Sub db() 'bajifeng
   
2. arr = [F449:F492]
   
3. amin = Application.Small(arr, 1)
   
4. Debug.Print amin
   
5. For i = 1 To UBound(arr)
   
6.     If arr(i, 1) = amin Then
   
7.     n = n + 1
   
8.     If n = 1 Then Set Rng = Cells(i + 448, "f").Resize(, 10)
   
9.     Set Rng = Union(Rng, Cells(i + 448, "f").Resize(, 10))
   
10.     End If
    
11. Next
    
12. Rng.Copy Sheets(2).[f461]
    
13. End Sub

复制代码

bajifeng

>>>>>>>>>>>>>>>>

bajifeng

>>>>>>>>>>>>>>>>>>>