如何通过VBA实现index+Match 或者 lookup的多条件查找功能

启乾

求助各位大佬，我使用INDEX+MATCH  或者lookup函数来从一张表里查找到与两个条件相匹配的内容到另一张表里，但是数据一多了之后，电脑就会非常的卡，但是VBA实现多条件查收我又不会，希望哪位大佬指点下，通过VBA实现替代这两种函数，万分感谢附件是例表，就是想从表里的记录数据查找出相应数据汇总汇总表格里

于箱长

多条件查找的VBA有很多啊，找一个改一改就行了

zpy2

select 工单号码,group_concat(报工时间||'</td><td>'||设备编号||'</td><td>'||作业员,'</td><td>') 工序 from 报工工序明细表 group by 工单号码

opel-wong

代码如下，供参考：

opel-wong

演示效果如下，

3190496160

Sub 数据匹配()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
ar = Sheets("记录数据").[a1].CurrentRegion
For i = 2 To UBound(ar)
    If Trim(ar(i, 2)) <> "" And Trim(ar(i, 3)) <> "" Then
        zf = Trim(ar(i, 2)) & "|" & Trim(ar(i, 3))
        d(zf) = i
    End If
Next i
With Sheets("汇总表格")
    .[a1].CurrentRegion.Offset(1, 1) = Empty
    br = .[a1].CurrentRegion
    For i = 2 To UBound(br)
        If Trim(br(i, 1)) <> "" Then
            m = d(Trim(br(i, 1)) & "|切割")
            n = d(Trim(br(i, 1)) & "|抛光")
            If m <> "" Then
                br(i, 2) = ar(m, 4)
            End If
            If n <> "" Then
                br(i, 5) = ar(n, 4)
            End If
        End If
    Next i
     .[a1].CurrentRegion = br
End With
MsgBox "ok!"
End Sub

3190496160

就是一个数组+字典匹配的问题，自己测试看看呗

启乾

opel-wong 发表于 2021-4-11 09:47
演示效果如下，

谢谢..........

启乾

3190496160 发表于 2021-4-11 10:00
就是一个数组+字典匹配的问题，自己测试看看呗

好的，非常感谢。。。。。

启乾

3190496160 发表于 2021-4-11 09:59
Sub 数据匹配()
Dim d As Object
Set d = CreateObject("scripting.dictionary")

谢谢老师，使用后确实可以，但是还有个问题，运行完宏后相当于整个表格变成了复制粘贴上去的，实际表格中有些其他的列是有公式充填的，如何才能让这些区域保持是公式充填不变，运算结果只覆盖了我需要的区域