Excel VBA批量给工作簿所有工作表应用公式报错求助

你的代码有三个核心问题导致公式出错：

1. 混用FormulaR1C1与A1引用格式 #

你用了FormulaR1C1属性，但赋值的是A1样式的公式（比如AD2:AD803），VBA在转换时会出现异常。要么改用Formula属性（对应A1格式），要么把公式改成R1C1格式。

2. SUMIF条件的引号语法错误 #

代码里的"=SUMIF(AE2:AE803," + ",AD2:AD803)/100"是错误的字符串拼接方式：

• VBA里字符串拼接要用&，不是+
• 公式里的引号需要用两个双引号转义，否则VBA会把单个引号当成字符串结束符，导致生成的公式出现多余的<>符号

3. 冗余的选择/激活操作 #

反复用Sheets.Select和Activate不仅效率低，还容易因为选中状态变化出问题，直接批量设置单元格公式更稳妥。

修复后的代码 #

Sub InstacartFixed()
    Dim ws As Worksheet
    
    ' 遍历所有工作表设置公式
    For Each ws In ThisWorkbook.Sheets
        ' AD805: 求和（用A1格式，所以用Formula属性）
        ws.Range("AD805").Formula = "=SUBTOTAL(9, AD2:AD803)"
        
        ' AD806: SUMIF匹配"+"，注意转义引号
        ws.Range("AD806").Formula = "=SUMIF(AE2:AE803,""+"",AD2:AD803)/100"
        
        ' AD807: SUMIF匹配"-"，同样转义引号
        ws.Range("AD807").Formula = "=SUMIF(AE2:AE803,""-"",AD2:AD803)/100"
        
        ' AG805: 求和
        ws.Range("AG805").Formula = "=SUM(AG2:AG803)"
        
        ' AH805: 除以10000
        ws.Range("AH805").Formula = "=AG805/10000"
        
        ' AH808: 计算差值
        ws.Range("AH808").Formula = "=AD806-AD807-AH805"
    Next ws
End Sub

关键修改说明 #

• 用For Each ws In ThisWorkbook.Sheets遍历所有工作表，避免重复选择操作
• 改用Formula属性对应A1格式的公式，符合你原来的写法习惯
• SUMIF的条件里用""+""和""-""来表示公式里的"+"和"-"，解决引号转义问题
• 去掉所有Select和Activate，直接通过工作表对象操作单元格，更稳定

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