使用VBA的.Formula属性插入IF函数时遇运行时错误1004求助

正确代码示例 #

先给出可正常运行的代码写法：

Sub Gang()
    Dim formula_1 As String
    formula_1 = "=IF(A1<>"""",1,0)"
    Range("A2").Formula = formula_1
End Sub

触发1004错误的常见原因及修复方案 #

• 区域设置不兼容：如果你的Excel是非英文版本（比如中文），系统区域可能要求用分号作为参数分隔符，而非逗号。此时改用.FormulaLocal属性适配本地语法：

  formula_1 = "=IF(A1<>"""",1;0)"
  Range("A2").FormulaLocal = formula_1
  

• 单元格/工作表被保护：若目标单元格所在工作表处于保护状态，写入公式会被拦截。需先解除保护再操作：

  ActiveSheet.Unprotect ' 有密码则添加参数：Password:="你的密码"
  Range("A2").Formula = formula_1
  ActiveSheet.Protect ' 按需添加密码参数
  

• Range引用无效：直接用Range("A2")可能指向非预期工作表，需明确指定工作表对象：

  ThisWorkbook.Worksheets("Sheet1").Range("A2").Formula = formula_1
  

快速验证方法 #

手动在A2单元格输入=IF(A1<>"",1,0)，如果能正常运行，说明公式逻辑没问题，问题大概率出在区域设置、权限或引用范围上。

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