VBA中公式内动态引用Table名称的问题及解决反馈

问题原因 #

你遇到的Expected End of Statement编译错误，是因为VBA字符串拼接时没有正确分隔字符串片段与变量index。原写法把字符串和变量直接连在一起，导致VBA无法识别合法的语法结构。

修复后的代码 #

直接修正字符串拼接逻辑，将公式拆分为固定前缀、变量、固定后缀三个部分，用&正确连接：

ActiveCell.FormulaR1C1 = "=COUNTA(Table" & index & "[ID '#])"

更稳健的实现方案 #

如果担心index变量值异常导致表名匹配错误，可以直接引用当前工作表中已创建的ListObject名称，无需依赖index：

Dim targetTbl As ListObject
' 获取当前工作表中你刚创建的表格（假设是第一个ListObject）
Set targetTbl = ActiveSheet.ListObjects(1)
' 动态写入公式
ActiveCell.FormulaR1C1 = "=COUNTA(" & targetTbl.Name & "[ID '#])"

这种方式能确保公式引用的是当前工作表的目标表格，避免手动拼接字符串可能出现的疏漏。

后续更新反馈 #

感谢各位——在COUNTA函数的&前后添加空格解决了一处问题，同时使用评论区建议的Row(Table)函数也可行！这是最棒的社区（我已经浏览该网站获取创意9个月了，这是我的第一篇帖子！我已经20多年没写代码了，你们真的太厉害！）

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