[已解决]根据条件查询数字

excelpxfans001

根据条件查询数字  

最佳答案

月排行榜 / 总排行榜

dsmch

2015-4-2 22:16

Sub Macro1()
    Dim arr, k%, j%, i&, s&
    arr = Sheet1.[b15:f88]
    n = UBound(arr)
    For k = 1 To 9
        For j = 1 To 4
            s = 0
            For i = n - k To 1 Step -1
                If arr(i, j) = arr(n - k, j) Then
                    s = s + 1
                    Sheets(k + 1).Cells(s, j + 1) = arr(i + k, j)
                End If
            Next
        Next
    Next
    End Sub

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, k%, j%, i&, s&
   
3. arr = Sheet1.[b15:f88]
   
4. n = UBound(arr)
   
5. For k = 1 To 9
   
6.     For j = 1 To 4
   
7.         s = 0
   
8.         For i = n - k To 1 Step -1
   
9.             If arr(i, j) = arr(n - 1, j) Then
   
10.                 s = s + 1
    
11.                 Sheets(k + 1).Cells(s, j + 1) = arr(i + k, j)
    
12.             End If
    
13.         Next
    
14.     Next
    
15. Next
    
16. End Sub

复制代码

excelpxfans001

dsmch 发表于 2015-4-2 11:15

麻烦老师看下。C列中：与86行数字5相同的结果不对哦。下2格数据已做红色示例。

excelpxfans001

excelpxfans001 发表于 2015-4-2 11:37
麻烦老师看下。C列中：与86行数字5相同的结果不对哦。下2格数据已做红色示例。

sheet3是放86行下二格的数据

excelpxfans001

dsmch 发表于 2015-4-2 11:15

比如与86行相同的数字的下2格数据 提取的结果不对哦。

excelpxfans001

dsmch 发表于 2015-4-2 11:15

非常抱歉！描述不仔细，不好意思。

excelpxfans001

再顶一次看看。

dsmch

Sub Macro1()
    Dim arr, k%, j%, i&, s&
    arr = Sheet1.[b15:f88]
    n = UBound(arr)
    For k = 1 To 9
        For j = 1 To 4
            s = 0
            For i = n - k To 1 Step -1
                If arr(i, j) = arr(n - k, j) Then
                    s = s + 1
                    Sheets(k + 1).Cells(s, j + 1) = arr(i + k, j)
                End If
            Next
        Next
    Next
    End Sub