使用 Excel VBA 进行字符串替换（类似于 Excel SUBSTITUTE 函数）答案

【问题标题】：string substitution using Excel VBA (similarly to the Excel SUBSTITUTE function)使用 Excel VBA 进行字符串替换（类似于 Excel SUBSTITUTE 函数）
【发布时间】：2012-01-19 14:12:23
【问题描述】：

我有一个关于字符串修改的问题。假设我们有以下字符串：4155595208***
在单元格 A1 中（10 个数字和 3 个开头）。

现在我想用一个空白字段替换这 3 颗星，并在单元格 B1 中得到结果（所以我希望得到 4155595208 作为结果）。如果我使用普通的内置 Excel 函数，我会在单元格 B1 中输入以下内容：
=SUBSTITUTE(A1,"*","")

现在我想用 Excel VBA 做同样的事情。但是，每当我尝试运行以下代码时，都会收到错误消息：“运行时错误'13'：类型不匹配”。

子测试()
单元格(1,2) = "=SUBSTITUTE(M2," * ","")"
结束子

我猜这个问题可能是因为一堆引号引起的，但我不知道。有人可以帮我解决这个问题吗？

提前致谢，
拉兹洛

【问题讨论】：

标签： excel vba

【解决方案1】：

写公式时需要使用双双引号

Cells(1, 2) = "=SUBSTITUTE(M2,"" * "","""")"

【讨论】：