VBA去重复

wj6433731

根据A列和D列比较B列和E列中的数字，其中B列和E列内由顿号（、）分隔成多组数据。每组数据都要比较，在E列中删除那些在B列中出现的电话号码。保留不重复的数据



请各位老师帮忙看看，使用VBA，感谢

wj6433731

感谢老师们

limonet

解释一下，理解不了。

wj6433731

更正了新的文件

wj6433731

limonet 发表于 2024-8-12 13:09
解释一下，理解不了。

新的文件，麻烦老师了，，

wj6433731

limonet 发表于 2024-8-12 13:09
解释一下，理解不了。

是由D列找A列，让后再对应的E列中删除B列出现的数组

limonet

公式嵌套，VBA按此思路。

wj6433731

limonet 发表于 2024-8-12 13:55
公式嵌套，VBA按此思路。

有VBA 吗数据比较多

wj6433731

limonet 发表于 2024-8-12 13:55
公式嵌套，VBA按此思路。

看到了  ，好的

longwin

Sub test()
    Set d = CreateObject("scripting.dictionary")
    arr = [a1].CurrentRegion
    For i = 2 To UBound(arr)
        d(arr(i, 1)) = arr(i, 2)
    Next
    brr = [d1].CurrentRegion
    For i = 2 To UBound(brr)
        ss = Split(brr(i, 2), "、")
        For j = 0 To UBound(ss)
            If InStr(1, d(brr(i, 1)), ss(j)) > 0 Then
                ss(j) = ""
            End If
        Next
        brr(i, 2) = Join(ss, "、")
    Next
    [g1].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub