VBA、私は私のマクロこの式に追加したいVBA

Question

でSUMとCOUNTIF式：

=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"","")))""" 

が、それは動作しません.....

Answer 1

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