Udf paramarray

Originally Posted by daboho

In (a1:a20) contain date,string,numeric
.
.

While i am use function in b1 and drag to d1
In b1=.count (date),c1=.count(string) and d1=.count(numeric)

B1
=IFERROR(DataTypes($A1:$A20,COLUMN(A1)),"")
fill right

Function DataTypes(rng As Range, ref As Long)
    Dim r As Range, x As String
    With CreateObject("Scripting.Dictionary")
        For Each r In rng
            x = TypeName(r.Value)
            .Item(x) = .Item(x) + 1
        Next
        DataTypes = Join(Array(.keys()(ref - 1), .items()(ref - 1)), ":")
    End With
End Function