Excel VBA中如何正确转义单元格区域？公式拼接问题求助

我来帮你拆解下当前代码的问题，以及对应的修复方案：

核心问题分析 #

你的代码里有两个关键错误：

1. VBA变量未正确插入公式：你把VBA变量row写在了公式字符串内部（"B2:B"" & row"），这会让Excel把row当成文本字符串去解析，而不是使用VBA中row变量的实际数值。
2. 区域拼接逻辑错误：原本想生成B2:B[行号]的区域，但错误的拼接方式导致Excel无法识别正确的单元格范围。

修复后的代码行 #

把公式行改成下面这样就可以正常运行了：

Worksheets(ws_name).Range("B" & (row + 1)).Formula = "=COUNTIF(B2:B" & row & ", "">0"")"

代码解释 #

• 变量拼接："=COUNTIF(B2:B" 是公式的前半部分，接着用& row &插入VBA中获取到的实际行号，最后拼接", "">0"")"完成公式。这样生成的公式会是类似=COUNTIF(B2:B15, ">0")的正确格式。
• 引号转义：你原来的引号转义是对的——在VBA字符串里，要表示一个双引号必须写两个双引号，所以">0"在VBA里要写成"">0""。

补全后的完整代码片段 #

顺便帮你补全了原代码里未写完的部分，确保逻辑完整：

Dim ws_name As Variant
Dim row As Long
For Each ws_name In Worksheet_array
    If (ws_name <> "") Then
        Debug.Print ws_name
        ' 获取B列最后一行的行号
        row = Worksheets(ws_name).Range("B" & Rows.Count).End(xlUp).Row
        ' 写入正确的COUNTIF公式
        Worksheets(ws_name).Range("B" & (row + 1)).Formula = "=COUNTIF(B2:B" & row & ", "">0"")"
    End If
Next ws_name

额外注意点 #

• 记得给ws_name指定类型为Variant，避免VBA默认的变体类型可能带来的问题；
• Rows.Count前面最好加上工作表限定，比如Worksheets(ws_name).Rows.Count，防止在不同工作表切换时出现错误（不过当前代码里已经限定了工作表，影响不大，但养成好习惯更好）。

内容的提问来源于stack exchange，提问作者Jim from Princeton