如何把全部符合单个条件的数据提取出来

多肉骨头

选择一个符合条件的值（单元格M3），需要数据源筛选M3的科目都列出来，不知道公式哪里有问题，在线求助~

3190496160

Private Sub Worksheet_Change(ByVal T As Range)
If T.Address <> "$M$3" Then Exit Sub
If T.Value = "" Then Exit Sub
    Dim ar As Variant
    Dim br()
    ar = Sheets("数据源").[a1].CurrentRegion
    ReDim br(1 To UBound(ar), 1 To 4)
    For i = 2 To UBound(ar)
        If Trim(ar(i, 9)) = Trim(T.Value) Then
            n = n + 1
            br(n, 1) = ar(i, 6)
            br(n, 2) = ar(i, 7)
            br(n, 3) = ar(i, 9)
            br(n, 4) = ar(i, 8)
        End If
    Next i
    r = Cells(Rows.Count, 2).End(xlUp).Row + 4
    Range("b4:e" & r) = Empty
    [b4].Resize(n, UBound(br, 2)) = br
End Sub

3190496160

代码供参考，单元格事件代码，代码放到页面代码区域内

多肉骨头

3190496160 发表于 2020-7-28 15:06
代码供参考，单元格事件代码，代码放到页面代码区域内

大神，我没改明白，能不能帮我在原表上面看一下

3190496160

多肉骨头 发表于 2020-7-28 16:49
大神，我没改明白，能不能帮我在原表上面看一下

4楼的附件跟一楼的附件根本就不一样，到底以哪个为准呢？？？

多肉骨头

3190496160 发表于 2020-7-28 18:12
4楼的附件跟一楼的附件根本就不一样，到底以哪个为准呢？？？

4楼的附件，谢谢~~~~~~~~~

多肉骨头

3190496160 发表于 2020-7-28 18:12
4楼的附件跟一楼的附件根本就不一样，到底以哪个为准呢？？？

大神，能有空帮我看一下吗？之前以为用公式可以做到，只是放了个模板

3190496160

多肉骨头 发表于 2020-7-30 10:15
大神，能有空帮我看一下吗？之前以为用公式可以做到，只是放了个模板

不是不愿意帮你，而是四楼的附件，根本就看不明白你想干什么

多肉骨头

3190496160 发表于 2020-7-30 14:57
不是不愿意帮你，而是四楼的附件，根本就看不明白你想干什么

和之前一样的，通过列表控件，改变N3的值，相当于筛选出这个科目下的所有数据。

多肉骨头

3190496160 发表于 2020-7-30 14:57
不是不愿意帮你，而是四楼的附件，根本就看不明白你想干什么

标注黄色的部分