Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/26.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
使用Excel VBA进行字符串替换(类似于Excel替换函数)_Excel_Vba - Fatal编程技术网

使用Excel VBA进行字符串替换(类似于Excel替换函数)

使用Excel VBA进行字符串替换(类似于Excel替换函数),excel,vba,Excel,Vba,我有一个关于字符串修改的问题。假设我们有以下字符串:4155595208*** 在单元格A1中(10个数字和3个开始) 现在我想用一个空白区域替换这3颗星,并在单元格B1中得到结果(因此我希望得到4155595208)。如果我使用普通的内置Excel函数,我会在单元格B1中键入以下内容: =替换(A1,“*”,“”) 现在我想用excelvba做同样的事情。但是,每当我尝试运行以下代码时,都会收到错误消息:“运行时错误'13':类型不匹配” 子测试() 单元格(1,2)=“=替换(M2,“*”,

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

现在我想用一个空白区域替换这3颗星,并在单元格B1中得到结果(因此我希望得到4155595208)。如果我使用普通的内置Excel函数,我会在单元格B1中键入以下内容:
=替换(A1,“*”,“”)

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

子测试()
单元格(1,2)=“=替换(M2,“*”,“)”
端接头

我想问题可能是因为一堆引号,但我不知道。有人能帮我处理这件事吗

提前感谢,

Laszlo

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

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

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

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