如何修复VBA设置单元格公式时的‘Expected end of statement’编译错误？

核心编译错误原因 #

出错的公式拼接语句存在字符串语法错误：

.Range("C1").Formula = "=Counta(D4:D" & Qnum")"

这里的Qnum")写法错误，VBA无法识别变量与字符串的拼接边界。正确的拼接逻辑是把变量Qnum用&分别和前后的字符串片段连接，修正后：

.Range("C1").Formula = "=COUNTA(D4:D" & Qnum & ")"

额外需要修复的其他问题 #

1. 文本框值的类型转换：用户窗体文本框的txtNum返回的是文本类型，直接参与数值计算可能引发类型不匹配错误，需要用Val()函数转换为数值：

   Qnum = 3 + Val(GenTest.txtNum.Value)
   

2. With语句未闭合：代码中的With ws没有对应的End With，会导致编译失败，必须补充闭合语句：

   With ws
       .Range("C1").Formula = "=COUNTA(D4:D" & Qnum & ")"
   End With
   

完整修正后的代码 #

Dim Qnum As Integer '定义整数变量
Dim ws As Worksheet

Set ws = Sheets("Test")
'将用户输入转换为数值后加3
Qnum = 3 + Val(GenTest.txtNum.Value)

With ws
    '正确拼接COUNTA公式
    .Range("C1").Formula = "=COUNTA(D4:D" & Qnum & ")"
End With

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