语法错误：在VBA中插入公式

以下粗体代码出现语法错误

' Headline Length Equation

Do

If IsEmpty(ActiveCell) Then

ActiveCell.FormulaR1C1 = "N.A"

End If

**Columns("O:O").Formula = "=IF(LEN(TRIM(A2))=0,0,LEN(TRIM(A2))-LEN(SUBSTITUTE(A2," ","")+1)"**

ActiveCell.Offset(1, 0).Select

Loop Until IsEmpty(ActiveCell.Offset(0, -1))

---

把报价加倍就行了

"=IF(LEN(TRIM(A2))=0,0,LEN(TRIM(A2))-LEN(SUBSTITUTE(A2,"" "",""""))+1)"

+

---

谢谢@mehow。当公式运行时，工作簿中的所有值都显示为“#Value”错误。我不知道为什么这个公式无法计算可用的字数。你知道为什么会发生这种情况吗？我认为函数中有一个错误。。。结尾缺少一个

）

。最终代码：表格（“原始数据”）。选择范围（“R2:R”和最后一行）。选择选择。公式=“=IF（LEN（TRIM（A2））=0,0，LEN（TRIM（A2））-LEN（替换为（A2），“，”）+1）”