如何让Excel按输入的起止编号自动运行跨工作表SUMIF批量公式？

一、基础预设 #

• 在当前工作簿的Sheet1中，用A1单元格输入起始编号（如01），B1单元格输入结束编号（如12）
• 确保所有目标工作表的条件区域、求和区域位置一致（比如统一用C:C作为条件区域，D:D作为求和区域），条件值放在Sheet1的C1单元格

二、函数公式实现（无需编程） #

直接在Sheet1的结果单元格（如D1）输入以下公式：

=SUMPRODUCT(SUMIF(INDIRECT("'[02.09."&TEXT(ROW(INDIRECT(A1&":"&B1)),"00")&"]02.09'!C:C"),C1,INDIRECT("'[02.09."&TEXT(ROW(INDIRECT(A1&":"&B1)),"00")&"]02.09'!D:D")))

公式拆解 #

• ROW(INDIRECT(A1&":"&B1))：生成从起始到结束编号的数字序列（如A1=01、B1=12时，生成1-12的数组）
• TEXT(..., "00")：将数字转为两位格式（1→01），匹配工作表命名的XX部分
• INDIRECT(...)：动态拼接每个目标工作表的区域引用
• SUMIF：对单个工作表执行条件求和
• SUMPRODUCT：将所有工作表的求和结果累加

注意事项 #

• 所有目标工作表必须处于打开状态，否则INDIRECT无法引用
• 可根据实际需求修改公式中的C:C（条件区域）和D:D（求和区域）

三、VBA宏实现（更稳定灵活） #

如果需要支持未打开的工作簿，或添加容错逻辑，用VBA实现：

1. 按Alt+F11打开VBA编辑器
2. 右键当前工作簿 → 插入 → 模块，粘贴以下代码：

Sub BatchSumIf()
    Dim startNum As Integer, endNum As Integer
    Dim i As Integer
    Dim ws As Worksheet
    Dim sumResult As Double
    Dim criteria As Variant
    Dim rangeCriteria As String, rangeSum As String
    
    ' 读取参数
    startNum = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
    endNum = ThisWorkbook.Sheets("Sheet1").Range("B1").Value
    criteria = ThisWorkbook.Sheets("Sheet1").Range("C1").Value
    rangeCriteria = "C:C" ' 条件区域，按需修改
    rangeSum = "D:D" ' 求和区域，按需修改
    
    sumResult = 0
    
    ' 循环遍历目标工作表
    For i = startNum To endNum
        Dim sheetName As String
        sheetName = "[02.09." & Format(i, "00") & "]02.09"
        
        ' 检查工作表是否存在
        On Error Resume Next
        Set ws = ThisWorkbook.Sheets(sheetName)
        On Error GoTo 0
        
        If Not ws Is Nothing Then
            sumResult = sumResult + Application.WorksheetFunction.SumIf(ws.Range(rangeCriteria), criteria, ws.Range(rangeSum))
        End If
    Next i
    
    ' 输出结果
    ThisWorkbook.Sheets("Sheet1").Range("D1").Value = sumResult
End Sub

3. 回到Excel，添加运行按钮：
   • 开发工具 → 插入 → 按钮（表单控件）
   • 选择BatchSumIf宏，点击确定
   • 输入起始/结束编号和条件后，点击按钮即可自动计算

VBA优势 #

• 无需打开所有目标工作表
• 自动跳过不存在的工作表
• 支持后续扩展复杂逻辑

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