vba如何查找匹配多个数据？

1659892128

根据“汇总”表F列的内容，查找“数据”表里E列与它相同的项，再匹配“数据”表里A列所对应的到“汇总”表O列里面。附件里我只能做O4一个格，不懂如何往下循环，各位老师帮忙修改下代码！

追风少年丶斌

find的语法：

range（某区域）.find（某值）

findnext的语法：

Range(某区域).FindNext(find的结果)

使用findnext要先使用find找到第一个结果，然后在用findnext找到下一个结果。

gwjkkkkk

Option Explicit
Sub TEST()
    Dim ar, i&, dic As Object
   
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = Sheets(1).[A1].CurrentRegion
    For i = 2 To UBound(ar)
        dic(ar(i, 5)) = dic(ar(i, 5)) & "、" & ar(i, 1)
    Next i
   
    ar = [A1].CurrentRegion
    For i = 4 To UBound(ar)
        ar(i, 15) = Mid(dic(ar(i, 6)), 2)
    Next i

    [A1].CurrentRegion = ar
    Set dic = Nothing
    Beep
End Sub

清风竹-

请看附件。

gwjkkkkk

请参考。。。

一只狗三只眼

gwjkkkkk 发表于 2023-3-2 19:21
Option Explicit
Sub TEST()
    Dim ar, i&, dic As Object

数组加字典，是处理数据的有力武器。

1659892128

gwjkkkkk 发表于 2023-3-2 19:27
请参考。。。

好的，谢谢老师

1659892128

清风竹- 发表于 2023-3-2 19:23
请看附件。

感谢老师的回答