VBA，SUM和COUNTIF公式在VBA

-1

=SUM(D2:N2)+((COUNTIF(D2:N2,"GOLD")+COUNTIF(D2:N2,"PLATIN"))*1)+((COUNTIF(D2:N2,"PLPLUS")+COUNTIF(D2:N2,"AMBASS"))*2).

代码

Sheets("Water").Select 
ActiveCell.FormulaR1C1 = "=(SUMPRODUCT(IF(OR(RC[1]=R[-1]C[1],RC[3]=""GOLD"",RC[3]=""PLATIN""),""1"","")))"""

，但它不工作.....

来源

2017-03-04 JohanEs

Dim nr_rows As Long 

with Sheets("Water") 
nr_rows = Cells(Rows.Count, 2).End(xlUp).Row 

    for i = 2 to nr_rows 
     cells(i,1).Formula = "=SUM(D2:N2)+((COUNTIF(D2:N2,""GOLD"")+COUNTIF(D2:N2,""PLATIN""))*1)+((COUNTIF(D2:N2,""PLPLUS"")+COUNTIF(D2:N2,""AMBASS""))*2)" 
    next i 

end with

来源

2017-03-06 10:03:50 BOB

这是好的，但最后我想把总数..你有你的公式的解决方案..看下面我什么想要做... – JohanEs

'next i'后面可以放：'Cells（nr_rows + 1，1）.Formula =“= sum（A2：A”＆nr_rows＆“）”' – BOB

它不起作用， A列中没有值。我想要A列中出现的结果 – JohanEs

VBA，SUM和COUNTIF公式在VBA

回答

相关问题