Question

EXCEL VBA计算多少个不同内容

D10：J10（为数据范围）
2.在这个范围找出不同内容有多少个？这个就是我要的结果

Answer 1

Sub s()
    Set rg = [d10:j10]
    Set d = CreateObject("scripting.dictionary")
    For Each c In rg
        For i = 1 To Len(c)
            d(Mid(c, i, 1)) = ""
        Next
    Next
    [g4] = d.Count
End Sub

Answer 2

直接用公式就可以了，何必再麻烦VBA呢
=SUMPRODUCT(1/COUNTIFS(D10:J10,D10:J10))