excel - excel函数到vba代码（独占四分位数和if函数）

Question

我正在尝试将这段 excel 函数放入 vba 代码中（主要是因为没有“application.worksheetfunction.if”之类的东西 - 如果我能在这里得到一些帮助会很棒！

=quartile.exc(if((F:F=F2)*(Y:Y=1),I:I),1)

基本上，如果满足两个条件，我想在 I 列中找到所有数据的第 25 个百分位数：1）如果 F 列的值相同，2）如果 Y 列值 = 1。否则返回空白。

非常感谢！

Answer 1

如果该公式为您提供所需的答案，那么您可以简单地使用：

Activesheet.Evaluate("=QUARTILE.EXC(IF((F:F=F2)*(Y:Y=1),I:I),1)")