VBA:replace方法求商品组合的总和

---

Excel中经常用到查找—替换的操作。VBA中的Find方法就是查找，替换就是Replace。

其基本的参数几乎和Find方法一样，和上面的查找—替换操作框也基本一一对应。

下图中的代码，将'小李'替换为'XXXX'，默认省略Lookat参数的话，只要单元格含有'小李'的都会被直接替。

若使用LOOKAT参数，完全匹配单元格数据，如下图，只有单元格是'小李'的才会被替换。

lookat:=xlWhole是单元格完全匹配，lookat:=xlPart是单元格模糊匹配（和上面图中默认省略参数同样效果）。

使用MatchCase参数区分大小写。同样，默认省略或MatchCase:=False是不区分大小写的。

区分大小写: MatchCase:=True

---

Replace方法简单介绍到此，下面来个实际的例子。求下图中奖品组合的总价，奖品单价是右边表格。

思路：直接将A列的奖品名称都替换为单价，然后变成一条算式，使用Evaluate计算算式的值。

参考代码：

---

代码效果：