请教个VBA问题。

显示全部楼层 · 2011-7-18 16:45:23

Range("G" & FinalRow + 1).FormulaR1C1 = "=SUMPRODUCT(1/COUNTIF("R[1-FinalRow]C:R[-1]C,R[1-FinalRow]C:R[-1]C))"
我就是想在这个单元格里面输入个计数的公式，求高手指点！
Range("G" & FinalRow + 1).FormulaR1C1 = "=SUMPRODUCT(1/COUNTIF(R[1-FinalRow]C:R[-1]C,R[1-FinalRow]C:R[-1]C))"

千问 · 2011-7-18 16:45:23

Cells(FinalRow + 1, 7).FormulaR1C1 = "=SUMPRODUCT(1/COUNTIF(R[" & 1-FinalRow & "]C[-3]:R[7]C[-3],"">1""))"后面的引用区域有点乱，看不出来哪个区域，只能给个参考， Range("G" & FinalRow + 1).FormulaR1C1 = "=SUMPRODUCT(1/COUNTIF(R[" & 1 - FinalRow & "]C:R[-1]C,R[" & 1 - FinalRow & "]C:R[-1]C))"...

千问 · 2011-7-18 16:45:23

我很少使用R1C1格式来写公式，我觉得你的问题主要是公式字符串的问题，你把变量FinalRow括在了引号里，这样最终公式会出错，错误类型为#Value，因为在工作表中没有FinalRow这个名称。可以将公式字符串修改为"=SumProduct(1/Countif(R[1-" & FinalRow & "]C:R[-1]C,R[1-" & FinalRo...