使用.Formula2函数引用工作表时，公式中工作表引用单引号丢失问题求助

原因分析 #

Excel公式解析器会自动移除合法工作表名称（无空格、特殊字符、数字开头）周围的单引号，这是默认的优化行为，并非VBA代码的语法错误。你的原代码逻辑本身正确，只是Excel自动简化了引用格式。

解决方案（根据需求二选一） #

方案1：保留公式可计算性（单引号自动优化，不影响功能）

如果仅需要公式正常计算，无需强制显示单引号，修正引号转义后的代码即可确保逻辑正确：

.Range("A" & i).Formula = "=COUNTIFS('SpreadsheetA'!J:J,'TEST'!B" & i & ",'SpreadsheetA'!D:D,"">""&'Control'!C5)"

注：这里将原代码中的" > "调整为">""，去掉多余空格，更符合COUNTIFS的条件书写规范，不影响计算逻辑。

方案2：强制显示带单引号的公式（单元格设为文本格式，无法计算）

如果需要单元格展示完整带单引号的公式用于追踪，先将单元格设置为文本格式，再直接写入公式字符串：

' 第一步：设置单元格为文本格式
.Range("A" & i).NumberFormat = "@"
' 第二步：写入带单引号的公式文本
.Range("A" & i).Value = "=COUNTIFS('SpreadsheetA'!J:J,'TEST'!B" & i & ",'SpreadsheetA'!D:D,"" > ""&'Control'!C5)"

此方法适合仅用于展示公式来源的场景，单元格内容为纯文本，不会自动计算。

额外说明 #

如果必须让可计算的公式在编辑栏显示单引号，唯一的方法是修改工作表名称，加入空格或特殊字符（比如将TEST改为TEST Sheet），此时Excel会自动保留单引号，但需要调整工作表命名，需谨慎操作。

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