删除VBA中的文本和自动组合

我试图通过在vba中添加一个公式来总结某一行中的数字,但似乎并不喜欢这个公式。

每个单元格看起来像这样[垂直线条不包含在单元格中]:

30 (Gold) | 25 (Silver) | 20 (Gold) | 13 (Green) 

所以它需要删除“(”

 Worksheets("Season 2014-2015").Cells(lastSeasonRow, 14).Formula = "=SUM(LEFT(B" & lastSeasonRow & ":L" & lastSeasonRow & ",InStr(1, B" & lastSeasonRow & ":L" & lastSeasonRow & ","" (""))" 

尝试一个涉及SUMPRODUCT函数的数组公式,使用IFERROR函数丢弃无效/空白条目,

 With Worksheets("Season 2014-2015").Cells(lastSeasonRow, 14) .FormulaArray = "=SUMPRODUCT(IFERROR(VALUE(LEFT(TRIM(B" & lastSeasonRow & ":L" & lastSeasonRow & "), FIND(CHAR(32), TRIM(B" & lastSeasonRow & ":L" & lastSeasonRow & "&CHAR(32))))), 0))" End With 

我使用CHAR(32) ( CHAR函数 ),因为我避免处理引号string中的引号。 如果实际数据中没有任何前导空格, TRIMfunction可以省略。

与IFERROR SUMPRODUCT总文字数字