用于计算列范围中的不同值的函数

I am attempting to create a function in VBA that, when given a range of values, will return a Count Distinct of those values. For example:I am attempting to create a function in VBA tha