国产一区二区欧美精品免费-欧美国产日韩在线视频-欧美亚洲国语精品一区二区-欧美激情五月综合啪啪-国产69精品麻豆久久久久-亚洲人成精品久久久久桥网站-欧美刺激肥熟在线视频-十七岁日本免费完整版BD-黑夜在线拖拽不卡第一页

當(dāng)A1=267809135，B1=267813549時(shí)，那么C1=04
插入如下模塊：
Function 不重復(fù)(rg As Range)
    Dim dic As Object
    Dim rng As Range
    Dim str As String
    Dim i As Long
    Dim L As Long
    Dim temp
    Set dic = CreateObject("Scripting.Dictionary")
    For Each rng In rg
        str = rng.Value
        L = Len(str)
        For i = 1 To L
            str1 = Mid(str, i, 1)
            If dic.exists(str1) Then
                dic(str1) = dic(str1) + 1
            Else
                dic.Add str1, 1
            End If
        Next
    Next
    temp = dic.items
    temp1 = dic.keys
    For i = 0 To UBound(temp)
        If temp(i) = 1 Then
            不重復(fù) = 不重復(fù) & temp1(i)
        End If
    Next
End Function


然后：c1=不重復(fù)（a1:b1)即可！


補(bǔ)：重復(fù)數(shù)字個(gè)數(shù)公式：{=SUM(ISNUMBER(FIND(ROW(1:10)-1,A1))*ISNUMBER(FIND(ROW(1:10)-1,B1)))}