据A,D列数据条件判断到E列

StarLink2020

各位老师好，

如附件，要根据A,D列数据，作如下条件判断，结果放到E列.
判断条件：
A列同一个container#, 若products 种类只有A一种，则type = A
A列同一个container#, 若products 种类有A,B,C,D多种，则type = A+B+C+D

代码请帮忙贴出来，放附件公司会自动清除，谢谢先~~

rose12332

学习学习，留个印记，

A1233515

代码见图片
为啥附件里还有错误值

XUEJUNXI

附件仅供参考

StarLink2020

XUEJUNXI 发表于 2021-2-27 10:20
附件仅供参考

太神了，谢谢啦

准提部林

Sub TEST_A1()
Dim Arr, xD, T1$, T2$, i&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([D1], [A65536].End(3))
For i = 2 To UBound(Arr)
    If IsError(Arr(i, 4)) Then GoTo i01
    T1 = Arr(i, 1): T2 = Arr(i, 4)
    If T1 = "" Or T2 = "" Then GoTo i01
    If xD(T1 & "/" & T2) > 0 Then GoTo i01
    xD(T1 & "/" & T2) = 1
    xD(T1) = xD(T1) & IIf(xD(T1) = "", "", "+") & T2
i01: Next i
For i = 2 To UBound(Arr)
    Arr(i - 1, 1) = xD(Arr(i, 1) & "")
Next i
[E2].Resize(UBound(Arr) - 1) = Arr
End Sub

StarLink2020

准提部林 发表于 2021-2-27 10:31
Sub TEST_A1()
Dim Arr, xD, T1$, T2$, i&
Set xD = CreateObject("Scripting.Dictionary")

谢谢大师，学习了~