请教老师，用VBA把相同数去掉，并显示剩下数，谢谢！

cartel

请教老师，用VBA把相同数去掉，并显示剩下数，谢谢！.zip (9.16 KB, 下载次数: 20)

2023-3-19 20:04 上传

点击文件名下载附件

zxsea_7426

cl1分裂加入使用字典,Cl2,CL3如果出现去除字典记录就可以了

cjc209

Sub 独有的()
    On Error Resume Next
    Dim dic
    Set dic = CreateObject("scripting.dictionary")
    For Each v In Split([cl1], ",")
        dic(v) = ""
    Next
    For Each v In Split([cl2], ",")
        dic.Remove (v)
    Next
    For Each v In Split([cl3], ",")
        dic.Remove (v)
    Next
    [cl5] = ""
    [cl5] = Join(dic.keys(), ",")
End Sub

dambcer

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

gwjkkkkk

Option Explicit
Sub TEST()
    Dim ar(), br, i&, j&, r&, dic As Object, vKey
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = [CL1].CurrentRegion.Value
    For i = 1 To UBound(ar)
        br = Split(ar(i, 1), ",")
        For j = 0 To UBound(br)
            dic(br(j)) = dic(br(j)) + 1
        Next j
    Next i
   
    Erase ar
    For Each vKey In dic.keys
        If dic(vKey) = 1 Then
            r = r + 1
            ReDim Preserve ar(1 To r)
            ar(r) = vKey
        End If
    Next
        
    Set dic = Nothing
    [CL5] = Join(ar, ",")
    Application.ScreenUpdating = True
    Beep
End Sub