Excel VBA设置Range.Formula时ROW()函数报错如何处理？

问题原因 #

你遇到的报错和ROW()函数本身能否在公式中使用无关，核心错误来自两方面：

• 代码中的Row()没有被包裹在公式字符串内，VBA会将其识别为VBA环境下的方法调用，而VBA原生不存在无参数的Row()方法，因此抛出「子过程或函数未定义」的错误
• 公式字符串的引号没有正确配对，会导致写入的公式本身存在语法错误

结论 #

你描述的动态取行号的场景完全可以正常使用工作表的ROW()函数，修正后的代码如下：

rng.Formula = "=INDIRECT(""J""&ROW(),TRUE)"

写入后单元格的公式会自动识别自身所在行的行号，匹配你需要的动态取值需求。

可选替代方案 #

如果你不需要公式在后续单元格行位置变动时自动更新行号，也可以选择在VBA层面提前计算行号写入公式：

' 仅适用给单个单元格rng赋值的场景
rng.Formula = "=INDIRECT(""J" & rng.Row & """,TRUE)"

如果是给批量连续区域赋值，优先推荐使用带ROW()的公式写法，执行效率更高，也能保证每个单元格都取到自身对应的行号。

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