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。否则返回空白。 / p>

非常感谢您！

Answer 1

如果该公式可以为您提供所需的答案，则只需使用：

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