请问：当evaluate函数中变量是一个区域，怎么表达？

qsxz

最近在学习evaluate函数，想用它做并行运算，加快速度，遇上一个问题，当evaluate用在countif函数上时，变量是一个区域，该怎么表达？反复实验都没找到解决办法。请教大师出手，谢谢了。

'evaluate并行运算测试
'代码用途：E列公式=COUNTIFS(B:B,"<"&B2),用evaluate取代countif，计算结果存放在D列。
'evaluate测试参数 是一列变量"$B2:$B5"，代码怎么表达？
Sub test()
'E列公式=COUNTIFS(B:B,"<"&B2),当用evaluate计算时，当B2是一列变量区域，该怎么表达？。
'求B列中 小于B2值的个数，依此类推B2/B3/B4/B5...
    [C:D].ClearContents
    s = "$B2:$B5*1"
    [C2:C5].Value = Evaluate(s)     '可以用s获得B列的值，并且赋值给C列

    sfml = "COUNTIFS(B:B,""<""&" & s & ")"    '利用s字符串，获取B的符合条件（小于自身，比如小于B2/B3/B4。。。）的个数
    Debug.Print sfml    'sfml字符串也是符合规范的
    [D2:D5].Value = Evaluate(sfml)   's字符串不起作用了，但是上面[C2:C5]代码中,s是起作用的
    '求[D2:D5]时，s被识别为B2,而不是B2:B5,为什么？
End Sub

代码在发附件。谢了各位大师。

    [D2:D5].Value = Evaluate("COUNTIFS(B:B,""<"" & s & )")   's字符串不起作用了，但是上面[C2:C5]代码中,s是起作用的

  这行代码的S，当它是一个区域变量，该怎么表示（VBA中）？

taller

lss001

'CountIfs函数只返回单值，获取数组值需要其它函数配合！例如可用mmult,sumproduct,textjoin等...，考虑版本问题，以下使用mmult汇总。

s = "$B2:$B5"
sfml = Evaluate ("Mmult(CountIfs(B:B,""<""&" & s & "),Row(A1))")

qsxz

taller 发表于 2021-9-26 03:21

感谢版主，不过我想计算区域的个数：
[D2:D5]=application.countif(columns(2),">" & [B2])其中[B2]按照行数，依次b3/b4/b5......，相当于计算B列每行的数据个数，并非仅仅只计算[B2]

qsxz

lss001 发表于 2021-9-26 13:37
'CountIfs获取数组值需要Sumproduct汇总或者TextJoin合并,注意∶TextJoin函数只有office高版本才有！

s  ...

老师你好，提示错误13，类型不匹配。这一句：
    sfml = Split(Evaluate("TextJoin("","",1,CountIfs(B:B,""<""&" & s & "))"), ",")

lss001

您的office啥版本?有可能版本不支持Textjoin函数，请参考楼上更换低版本Mmult函数！

qsxz

lss001 发表于 2021-9-26 21:05
您的office啥版本?有可能版本不支持Textjoin函数，请参考楼上更换低版本Mmult函数！

我用的office2013。
我分析我之前的方法，是没解决数组公式在countif中的使用方法

qsxz

猜测是数组公式没搞懂导致的问题。