Excel VBS中为ActiveSheet.Range.Value赋值IF公式触发1004运行时错误

你遇到的这个1004错误，根源其实很明确：VBA在写入公式时必须使用逗号（,）作为参数分隔符，而非你代码里用的分号（;）——哪怕你的Excel界面因为区域设置默认显示分号作为公式分隔符，VBA内部依然遵循美式英语的公式语法规则，只认逗号。

先看你那个简单的测试案例，把分号替换成逗号就能正常运行：

Sub replace()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        Sheets(ws.Name).Activate
        Dim I
        For I = 5 To 20
            ActiveSheet.Range("T" & I).Value = "=IF(1=1,1,0)" ' 将;替换为,
        Next I
    Next ws
End Sub

再针对你的目标代码updCells，只需要把公式里所有的分号换成逗号即可解决问题。另外还有个小优化：不需要逐个激活工作表，直接通过ws对象操作单元格，代码会更高效也更稳定。修正后的完整代码如下：

Sub updCells()
    Dim ws As Worksheet
    Dim I As Integer ' 建议明确声明变量类型，代码更规范高效
    For Each ws In ActiveWorkbook.Worksheets
        For I = 5 To 20
            ws.Range("T" & I).Formula = "=IF(Q" & I & "<>0,IF(R" & I & "+S" & I & ">Q" & I & ",""ERROR"",IF(R" & I & "="""",S" & I & "/Q" & I & ",IF(Q" & I & "=R" & I & ",""Coord."",S" & I & "/(Q" & I & "-R" & I & ")))),""N/A"")"
        Next I
    Next ws
End Sub

额外补充 #

• 这里用Formula属性代替Value属性，虽然Value在部分场景下也能生效，但Formula是专门用于设置单元格公式的属性，语义更清晰，也能避免一些潜在问题。
• 明确声明变量类型（比如I As Integer）是个好习惯，既能避免类型混淆错误，也能提升代码运行效率。

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