excel - VBA中计数函数的替代方法

Question

我正在尝试为 VBA 脚本中使用的计数函数寻找替代方法，

我正在尝试计算数组中单元格的数量，然后使用该值来定义 for 循环。

我尝试了以下方法；

NoColdReadings = ActiveCell.FormulaR1C1 = "=COUNT('5. Summary Information'!R[-7]C[5]:R[90]C[5])"
NumberOfColdProbes = ActiveSheet.Range("L4").End(xlDown).Row

MsgBox NumberOfColdProbes


For i = 4 To (Sheets("4. Word Doc").Range("H36").Value + 4)

ColdProbe = Cells(i, 12).Value
ListofCold = ListofCold & ColdProbe & Sepr

Next

NoColdreadings 返回 False，NumberOfColdProbes 返回 101，这是数组的总大小。

是否有另一种方法来计算 VBA 内部数组中具有结果的单元格的数量？

PS。我要计算的数组中的数据具有以下格式；

=IFERROR(IF(M4<>"",INDEX($D$4:$D$102,MATCH(IFERROR(SMALL($E$4:$E$102,C4),""),$E$4:$E$102,0)),""),"")

并返回“130854”等。

标签： excelvba