为何VBA中输入合法Excel公式会出现语法错误，该如何修复

问题原因 #

VBA字符串语法中，双引号"是字符串的边界标识，你在AC列公式里直接写的"yes"、"no"里的双引号会被VBA识别为当前字符串的结束标记，导致整行代码语法结构断裂，触发报错。手动输入到Excel中公式可以正常运行，是因为公式本身的逻辑符合Excel规则，只是VBA代码里的字符串写法不符合转义要求。

修复方案 #

你只需要把公式字符串内部的双引号，替换为两个连续的双引号完成转义即可。另外补充一个优化建议：lastRow变量建议改用Long类型，Integer类型的最大值仅为32767，当表格行数超过这个值时会触发溢出错误。

修复后的完整代码如下：

Sub AddHeaders()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim used As Range
    Set used = ws.UsedRange
    ' 改用Long类型避免行数溢出
    Dim lastRow As Long
    lastRow = used.Row + used.Rows.Count - 1

    ws.Range("AB6:AB" & lastRow).Formula = "=IF(ISNUMBER(J6),J6,IF(LEN(J6)=9,DATE(RIGHT(J6,4),LEFT(J6,1),MID(J6,3,2)),IF(LEN(J6)=10,DATE(RIGHT(J6,4),LEFT(J6,2),MID(J6,4,2)))))"
    ' 内部双引号用两个双引号转义
    ws.Range("AC6:AC" & lastRow).Formula = "=IF(AND(WORKDAY(TODAY(),20)-AB6<=28,WORKDAY(TODAY(),20)-AB6>=0),""yes"",""no"")"
End Sub

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