使用VBA中的匹配和行功能计算范围内的唯一文本值

Question

我需要计算一个范围内的唯一文本值。我正在尝试在VBA中重新创建以下公式 = SUMPRODUCT（-（FREQUENCY（MATCH（B2：B197，B2：B197,0），ROW（B2：B197）-ROW（B2）+1）> 0））。我尝试使用VBA代码重写上面的公式

Dim NumLabels As Variant
NumLabels = SumProduct(--Frequency(Application.WorksheetFunction.Match(Range(Cells(2,2),Cells(Range("A1").CurrentRegion.Rows.Count,2)),Range(Cells(2,2),Cells(Range("A1").CurrentRegion.Rows.Count,2)),0), 

这是我所能获得的。我不知道如何在VBA中使用函数 = ROW（）。

或者有没有更有效的方法来做到这一点。