VBA实现多条件SUMIF：动态工作表引用与列对应问题求助

问题1：让partlist正确引用单元格中的工作表名称 #

假设你的「Report」工作表中，第1行的各列单元格存储了需要引用的目标工作表名称（比如B1是"SheetA"，C1是"SheetB"），可以通过循环读取对应列的单元格值来获取工作表名，同时加校验避免引用不存在的工作表：

• 用Range.Cells读取对应位置的工作表名称文本
• 用On Error Resume Next结合Worksheets(工作表名)判断工作表是否存在

问题2：让SUMIF按列匹配对应工作表执行求和 #

核心是把列循环和工作表名绑定：每遍历一列，就取该列对应的工作表名，针对这个工作表的数据执行SUMIF/SUMIFS，而非在循环外固定工作表对象。另外如果是多条件求和，建议用WorksheetFunction.SumIfs替代SumIf。

完整示例代码 #

Sub MultiSheetSumIfs()
    Dim wsReport As Worksheet
    Dim wsTarget As Worksheet
    Dim lastRow As Long
    Dim col As Integer
    Dim i As Integer
    Dim wsName As String
    Dim criteriaRange As Range
    Dim sumRange As Range
    Dim criteria1 As String ' 第一个求和条件
    Dim criteria2 As String ' 第二个求和条件（按需添加）
    
    ' 绑定Report工作表
    Set wsReport = ThisWorkbook.Worksheets("Report")
    
    ' 获取Report表中条件列的最后一行（假设条件在A列）
    lastRow = wsReport.Cells(wsReport.Rows.Count, "A").End(xlUp).Row
    
    ' 循环处理每一列（从B列开始，对应第一个目标工作表）
    For col = 2 To wsReport.Cells(1, wsReport.Columns.Count).End(xlToLeft).Column
        ' 读取当前列第1行的工作表名称
        wsName = wsReport.Cells(1, col).Value
        
        ' 校验工作表是否存在
        On Error Resume Next
        Set wsTarget = ThisWorkbook.Worksheets(wsName)
        On Error GoTo 0
        
        If Not wsTarget Is Nothing Then
            ' 定义目标工作表的条件区域和求和区域（按需调整列）
            Set criteriaRange = wsTarget.Range("A2:A" & wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row)
            Set sumRange = wsTarget.Range("C2:C" & wsTarget.Cells(wsTarget.Rows.Count, "C").End(xlUp).Row)
            
            ' 循环处理每一行的条件（A列是条件值）
            For i = 2 To lastRow
                criteria1 = wsReport.Cells(i, "A").Value
                ' 如果有第二个条件，比如目标表B列等于"XXX"，可以添加
                ' criteria2 = "XXX"
                
                ' 多条件求和用SumIfs，单条件用SumIf
                ' 单条件写法：wsReport.Cells(i, col).Value = WorksheetFunction.SumIf(criteriaRange, criteria1, sumRange)
                ' 多条件写法（示例：条件1匹配A列，条件2匹配B列）
                wsReport.Cells(i, col).Value = WorksheetFunction.SumIfs( _
                    sumRange, _
                    criteriaRange, criteria1, _
                    wsTarget.Range("B2:B" & wsTarget.Cells(wsTarget.Rows.Count, "B").End(xlUp).Row), criteria2 _
                )
            Next i
            
            ' 释放对象
            Set wsTarget = Nothing
        Else
            ' 如果工作表不存在，在对应列写入提示
            wsReport.Cells(2, col).Value = "工作表不存在"
        End If
    Next col
End Sub

关键说明 #

1. 工作表名引用：通过wsReport.Cells(1, col).Value直接读取当前列顶部的工作表名称，确保每列对应正确的工作表。
2. 按列匹配求和：外层循环遍历列，每次循环都重新绑定对应工作表，再对该列的每一行执行求和，避免了之前所有列复用最后一个工作表的问题。
3. 多条件支持：用SumIfs可以轻松扩展多个条件，参数顺序是「求和区域 + 条件区域1 + 条件1 + 条件区域2 + 条件2...」。
4. 错误处理：添加了工作表存在性校验，避免因输入错误的工作表名导致程序崩溃。

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