根据两个条件查找数据

深秋红叶2019

用VBA根据两个条件超找数据，代码怎么写

Yalishanda30

附件供参考。。

约定的童话

Sub 查找()
    Dim i, n, t As Date, arr, brr(1 To 1000, 1 To 4)
    arr = Sheets("报名登记").Range("A8:af" & Sheets("报名登记").[a65536].End(3).Row)
    For i = 1 To UBound(arr)
        t = Split(arr(i, 1), " ")(0)
        If t = [b3] And arr(i, 32) = [c3] Then
            n = n + 1
            brr(n, 1) = n
            brr(n, 2) = arr(i, 1)
            brr(n, 3) = arr(i, 3)
            brr(n, 4) = arr(i, 2)
        End If
    Next
    [a5].Resize(UBound(brr), 4) = brr
End Sub
好用记得评分，谢谢！

深秋红叶2019

Yalishanda30 发表于 2019-12-9 14:20
附件供参考。。

我用的是wps版本，重新输入一遍日期2019-12-7，然后就没显示了，其它的也照不出，晚点我用office版本试一下，谢谢解答

深秋红叶2019

约定的童话 发表于 2019-12-9 14:27
Sub 查找()
    Dim i, n, t As Date, arr, brr(1 To 1000, 1 To 4)
    arr = Sheets("报名登记").Range ...

我用的是wps版本，重新输入一遍日期2019-12-7，然后就没显示了，其它的也照不出，晚点我用office版本试一下，谢谢解答

深秋红叶2019

深秋红叶2019 发表于 2019-12-9 16:48
我用的是wps版本，重新输入一遍日期2019-12-7，然后就没显示了，其它的也照不出，晚点我用office版本试一 ...

老师，没用啊

深秋红叶2019

Yalishanda30 发表于 2019-12-9 14:20
附件供参考。。

老师，没用，查不了

Yalishanda30

深秋红叶2019 发表于 2019-12-10 11:20
老师，没用，查不了

没有wps没法实验

深秋红叶2019

Yalishanda30 发表于 2019-12-10 12:06
没有wps没法实验

我用office2016也没用，系统是64位的

Yalishanda30

深秋红叶2019 发表于 2019-12-10 12:27
我用office2016也没用，系统是64位的

你附件的数据是简化的版本，我测试的时候没有问题。你在C3点下拉菜单选：潮流趋势商业精修剪班 会有结果，其他的都没有数据，因为报名登记数据里面不包含