VBA为单元格区域赋值公式时触发Runtime error '1004'错误求助

错误原因 #

1. 公式参数分隔符不匹配：VBA的.Formula属性要求使用英文逗号作为函数参数分隔符，你代码里用了分号;，这是Excel本地化（如葡萄牙语/西班牙语区域）的分隔符，对应VBA的.FormulaLocal属性，直接用.Formula会触发语法错误。
2. AVERAGEIF参数顺序错误：AVERAGEIF的正确语法是AVERAGEIF(条件判断范围, 条件, [要计算平均值的范围])，你当前写法把条件范围和平均范围搞反了，函数逻辑错误导致1004报错。

修正后的代码 #

Dim rangeOfReg As Range
Dim rowOfRegStringfied As String
rowOfRegStringfied = CStr(rowOfReg) ' 替代Str+LTrim，更简洁的转字符串方式
Set rangeOfReg = Worksheets("Sheet").Range(colOfReg & rowOfRegStringfied) ' 用&拼接字符串更规范

' 方案1：使用.Formula（英文逗号分隔），修正参数顺序
rangeOfReg.Formula = "=AVERAGEIF(J2:J" & rowOfRegStringfied & ",'Seg a quarta',H2:J" & rowOfRegStringfied & ")"

' 方案2：使用.FormulaLocal（保留分号分隔，适配本地语言环境）
' rangeOfReg.FormulaLocal = "=AVERAGEIF(J2:J" & rowOfRegStringfied & ";'Seg a quarta';H2:J" & rowOfRegStringfied & ")"

额外说明 #

• 转字符串用CStr(rowOfReg)比LTrim(Str(rowOfReg))更直接，避免Str函数返回带前导空格的字符串。
• VBA中字符串拼接优先用&而非+，+可能在处理数字时触发类型转换错误。

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