VBA给单元格赋值LEFT+FIND公式报错，如何用InStr实现对应功能？

• 第一是VBA字符串语法错误：你在字符串内部直接使用双引号包裹-，会被VBA判定为字符串结束标记，直接打断公式字符串的识别，属于基础语法问题。
• 第二是公式多了冗余右括号：你原公式=LEFT(F1,FIND("-",F1)-2))末尾多了1个右括号，即使手动输入到Excel也会触发公式语法错误。
• 第三是函数使用场景混淆：如果你是要给单元格写入工作表公式，不需要将FIND替换为VBA内置的InStr，只有当你要在VBA代码内直接计算结果时才需要用到InStr。

方案1：直接向F2写入可用的工作表公式（和手动输入效果完全一致，单元格保留公式） #

修正转义和括号后的代码如下：
Range("F2").Formula = "=LEFT(F1,FIND(""-"",F1)-2)"

注意：VBA字符串内部要输出双引号时，必须连续写2个双引号做转义，因此公式里的"-"要写成""-""。

方案2：用VBA计算结果后写入F2（单元格为静态值，无公式） #

这种场景需要使用InStr替代工作表函数FIND，注意InStr的参数顺序和FIND相反：InStr(起始位置, 被查找字符串, 要查找的内容)，完整代码如下：

Dim dashPosition As Long
' 查找F1内容中横杠的位置，返回0代表未找到
dashPosition = InStr(1, Range("F1").Text, "-")
' 做容错判断，避免横杠位置不足2位时LEFT函数报错
If dashPosition >= 3 Then
    Range("F2").Value = Left(Range("F1").Text, dashPosition - 2)
Else
    ' 未找到横杠或位置不符合要求时返回空值，可根据需求调整
    Range("F2").Value = ""
End If

内容的提问来源于stack exchange，提问作者user16766172