求助，如何在某列中筛选满足条件数据的下一行数据？

excelless

如图，我想把这列数据中所有同时满足 “坐标” 且“坐标” 下一单元格是 “X” 的 下一单元格数据 输出到E列；同理， 所有同时满足 “坐标” 且“坐标” 下三单元格是 “Y” 的 下一单元格数据 输出到F列。可能会有重复坐标值。请问如何实现？公式或VBA都可，最好用公式，不太懂VBA。

Look我在这

是这个效果么?

excelless

Look我在这 发表于 2018-2-28 15:45
是这个效果么?

是的，非常感谢！index+small居然能解决这种问题，能简单讲解一下原理吗？实际数据有好几十万行，我想知道一下原理便于操作。

excelless

mikezhan 发表于 2018-2-28 16:09
=OFFSET($A$1,SMALL(IF($A$2:$A$75="Y",ROW($A$2:$A$75),2^10),ROW(B1)),,)

用这个吧。好用

不能用啊 直接0或者NUM#

excelless

mikezhan 发表于 2018-2-28 16:09
如果有几十万行，那么 就直接考虑VBA。

数组函数 卡死你

可惜我不会写VBA啊，你有方案吗？

Look我在这

1. Sub Test()
   
2. Dim arr, brr(1 To 100000, 1 To 1), crr(1 To 100000, 1 To 1), i, n, m
   
3. arr = Range("a1:a" & Cells(Rows.Count, 1).End(3).Row)
   
4. For i = 1 To UBound(arr) - 3
   
5. If arr(i, 1) = "坐标" And arr(i + 1, 1) = "X" Then
   
6. n = n + 1
   
7. brr(n, 1) = arr(i + 2, 1)
   
8. End If
   
9. If arr(i, 1) = "坐标" And arr(i + 3, 1) = "Y" Then
   
10. m = m + 1
    
11. crr(m, 1) = arr(i + 4, 1)
    
12. End If
    
13. Next
    
14. Range("j1").Resize(Rows.Count, 2).ClearContents
    
15. Range("j1").Resize(1, 2) = Array("X", "Y")
    
16. Range("j2").Resize(n) = brr
    
17. Range("k2").Resize(m) = crr
    
18. MsgBox "完成"
    
19. End Sub
    

复制代码

Look我在这

如楼上所说 ，数据太多，数组公式会很 卡的。
INDEX+SMALL也没啥说的啊，就是符合条件，返回行号啊。