删除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可以省略。