将值输入数组，然后计算其中的唯一值数

I am writing a macro that calculates the # of unique values within the column of a worksheet. There are a few other parameters as well, which I have covered already. Basically what I am trying to find out is how to input the values into an array ( unique () ), and then how to count the # of unique values into that array. This is what I have so far.I am writing a macro that calculates the # of u