[已解决]求筛选的提取的代码

sanfuhai

在一行中判断某单元格的数字<某数，然后提取对应的第一行的数，只会这样描述，小白在间断学习中，只会简单的定位。详情请看附件： 求判断提取的代码.rar (3.47 KB, 下载次数: 3)

2017-4-24 15:04 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-24 15:52

1. Sub aaa()
   
2. Dim arr, brr, i&, j&, c&
   
3. arr = [f1].CurrentRegion
   
4. ReDim brr(1 To UBound(arr) - 1, 1 To UBound(arr, 2))
   
5. For i = 2 To UBound(arr)
   
6.   For j = 1 To UBound(arr, 2)
   
7.     If arr(i, j) < 2 Then
   
8.       c = c + 1
   
9.       brr(i - 1, c) = arr(1, j)
   
10.     End If
    
11.   Next j
    
12.   c = 0
    
13. Next i
    
14. [n2].Resize(UBound(brr), UBound(brr, 2)) = brr
    
15. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim arr, brr, i&, j&, c&
   
3. arr = [f1].CurrentRegion
   
4. ReDim brr(1 To UBound(arr) - 1, 1 To UBound(arr, 2))
   
5. For i = 2 To UBound(arr)
   
6.   For j = 1 To UBound(arr, 2)
   
7.     If arr(i, j) < 2 Then
   
8.       c = c + 1
   
9.       brr(i - 1, c) = arr(1, j)
   
10.     End If
    
11.   Next j
    
12.   c = 0
    
13. Next i
    
14. [n2].Resize(UBound(brr), UBound(brr, 2)) = brr
    
15. End Sub

复制代码