重写 Sumproduct 公式去除或忽略字母字符 - VBA 插入

编程问答 2022-05-31

问题描述

我决定重新编写我的问题以简化我所追求的内容。我在 Stack 上遇到了我现在遇到的同样问题的第一篇文章。那时我将所有 INDIRECT 添加到这个原始问题的代码中。
Sum with substitute,ignore and a dynamic range

我一直无法制作链接帖子中提到的“*”通配符。也许非英语 Excel 在这里发挥作用？

以最简单的形式，你能帮我重写这段代码吗（不起作用）：

Range("namedRange").FormulaR1C1 = "=SUMPRODUCT(SUBSTITUTE(R10C:R[-1]C,""S"",""""))"

执行以下操作：

  1. 用 blank 替换所有的“S”（“4S”在求和时会读为“4”）
  2. 忽略所有空白单元格和包含除“S”以外的其他文本的单元格。 “4T”应该被忽略。
  3. 对范围内的数字求和
  4. （单元格值永远不会是“4SK”，所以可以失败）

我可能可以编写一个函数来执行上述所有操作。但现在我被卡住了，我的谷歌结果让我变得更聪明了。任何帮助仍将不胜感激

解决方法

根据您编辑的问题进行编辑

我认为 UDF 会更容易维护。

我使用了正则表达式，因为您的要求似乎在发生变化，这将允许在将来更灵活地修改它。

您需要做的就是将要处理的范围作为参数传递给函数；您可以使用 VBA 或直接在工作表上执行此操作。

这是一个返回所有数字单元格或具有单个 showHideModal 的单元格的总和。

如果单元格中可能有多个 S，请将 S 参数更改为 .Global。

它允许不连续的范围。

如果您的范围始终是连续的，您可以消除外循环。

True
excelexcelexcel-formulasumproductvba