查找并累加数据

小女孩

求助a.rar (90.95 KB, 下载次数: 9)

2024-11-15 18:38 上传

点击文件名下载附件

查找到符合条件的行，把数据相加，里面有详细说明，高手老师帮看一下，谢谢！！！

gwjkkkkk

sheet1重复数据匹配哪一个

小女孩

gwjkkkkk 发表于 2024-11-15 19:09
sheet1重复数据匹配哪一个

匹配第一个即可，我疏忽了，谢谢！

gwjkkkkk

小女孩 发表于 2024-11-15 19:59
匹配第一个即可，我疏忽了，谢谢！

Option Explicit
Sub TEST6()
    Dim ar, br, i&, dic As Object, iPosRow&
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = Worksheets(1).[A1].CurrentRegion.Value
    For i = 2 To UBound(ar)
        If Not dic.exists(ar(i, 2)) Then
            dic(ar(i, 2)) = i
        End If
    Next i
   
    br = Worksheets(5).[A1].CurrentRegion.Value
    For i = 2 To UBound(br) - 2
        If dic.exists(br(i, 1)) Then
            iPosRow = dic(br(i, 1))
            ar(iPosRow, 3) = ar(iPosRow, 3) + br(i, 3)
        End If
    Next i
   
    With Worksheets(1)
        .[A1].Resize(UBound(ar), UBound(ar, 2)) = ar
        .Activate
    End With
    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

小女孩 发表于 2024-11-15 19:59
匹配第一个即可，我疏忽了，谢谢！

注意只能使用一次！

扑腾

建议在sheet5后面加一列备注，匹配成功了的药品在备注列标注“ok”,这样可以避免误操作