Excel VBA设置单元格函数触发Error 1004错误求助

从你的描述和代码来看，这个Error 1004几乎可以肯定是公式语法错误导致的，结合Office 2010的环境，主要有几个关键点需要修正：

1. 公式字符串拼接不完整 #

你的代码最后缺了闭合的右括号)，这会让Excel解析到一个不完整的公式，直接触发语法错误。比如原代码结尾停在c.Value，但CELL函数必须要有闭合的右括号才能被识别为合法公式。

2. 区域设置导致的参数分隔符问题 #

Office 2010如果是中文（或使用分号作为参数分隔符的区域），直接在工作表单元格里写分号;没问题，但用VBA设置公式时：

• 用.Value或.Formula属性时，Excel默认识别国际通用的逗号,作为参数分隔符；
• 如果你想用分号，应该用.FormulaLocal属性来适配本地区域设置。

3. 简化双引号的写法 #

VBA里在字符串中表示双引号，直接写两个双引号""比用Chr(34)更直观，也不容易出错。

修正后的代码示例 #

适配本地区域（用分号分隔参数）

' 用FormulaLocal属性，适配中文区域的分号分隔规则
ThisWorkbook.Sheets("Systems").Range("C" & c.Row).FormulaLocal = "=CELL(""" & "row""" & ";Articles!A" & c.Value & ")"

通用写法（用逗号分隔，兼容所有区域）

' 用Formula属性，国际通用语法，不受区域设置影响
ThisWorkbook.Sheets("Systems").Range("C" & c.Row).Formula = "=CELL(""" & "row""" & ",Articles!A" & c.Value & ")"

额外检查点 #

• 确认c.Value是有效的行号，比如Articles工作表中确实存在A列对应行的单元格，避免引用无效单元格导致的报错；
• 如果你坚持用Chr(34)，只需要把拼接补全即可（在结尾加上 & ")"），但还是推荐用双引号转义的写法，可读性更强。

之前你测试Chr(61)&"CELL"不报错，是因为这只是一个普通字符串=CELL，Excel不会去解析它；但加上Chr(40)后变成=CELL(，这是不完整的公式结构，Excel尝试解析时就会触发1004错误。

内容的提问来源于stack exchange，提问作者A.R.