运行时错误13：每次运行我的代码时类型不匹配

Question

当我尝试运行脚本时，我得到了这个type mismatch (Error 13)。下面是突出显示的代码错误。 我试图用VBA输入这个公式进入单元格，但是我得到了一个错误。

TopVisibleCell.Formula = _
 "=IF(ISERROR(LEFT(I2,SEARCH( " - " ,I2)-1)),I2,LEFT(I2,SEARCH( " - " ,I2)-1))"

Answer 1

您需要使用"

在VBA中转义""

TopVisibleCell.Formula = _ 
"=IF(ISERROR(LEFT(I2,SEARCH("" - "",I2)-1)),I2,LEFT(I2,SEARCH("" - "",I2)-1))"