总结替代，忽略和dynamic范围
我接近解决我的问题与“巴里胡迪尼”给出的答案，但我遇到了问题，将其结合我的需要。
=SUMPRODUCT(VALUE(0&SUBSTITUTE(A1:A8,"*",""))) 编辑＃3 – @Rory来解决我的问题很好的答案。 但是我没有想过的是，如果你在单元格中input一个非数字值，那么公式返回一个错误。 所以我真的想调整下面的公式忽略字母“x” ，或非数值（如果这更容易）：
–
ActiveCell.FormulaR1C1 = "=SUMPRODUCT(VALUE(0&SUBSTITUTE(INDIRECT(""R10C:R[-1]C"",FALSE),""s"","""")))" Dim Cell As Range For Each Cell In Range("all_cells") Cell.Formula = Range("one_cell").Formula Next
我现在要做的是编写一个VBA脚本来总结一个dynamic范围，并且包含一个“S”后面的值，但是不会失败或者返回任何其他字母上的错误。 最重要的是字母“x”。
之后，第一个公式设置，我想自动填充该公式的权利; 停在一个已知的列上。
结束编辑
为了历史和其他谷歌search的缘故，这里是我在使用“s”和“x”之前所使用的原始代码。
ActiveCell.FormulaR1C1 = _ "=SUM(INDIRECT(ADDRESS(10,COLUMN())&"":""&ADDRESS(ROW()-1,COLUMN())))"
这样做基本上是从一组行（第10行）中总结出来的，然后停止使用此公式的单元格之前的行的摘要。
我想要达到的例子：“3 + 4 S +2 + x = 9”; 而不是“= 5”或“##”
我终于解决了我的问题！ 我意识到嵌套的替代公式可能是一个漂亮的解决scheme，并经过几个错误，我意识到，范围只需要提到一次，瞧！
ActiveCell.FormulaR1C1 = "=SUMPRODUCT(VALUE(0&SUBSTITUTE(0&SUBSTITUTE(INDIRECT(""R10C:R[-1]C"",FALSE),""s"",""""),""x"","""")))"