在VBA中尝试创建多表多准则的动态求和公式

在VBA中，可以使用循环结构和条件语句来创建多表多准则的动态求和公式。下面是一个示例代码：

Sub DynamicSum()
    Dim ws As Worksheet
    Dim criteriaRange As Range
    Dim sumRange As Range
    Dim criteria As Variant
    Dim sumResult As Double
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置准则范围和求和范围
    Set criteriaRange = ws.Range("A1:A10")
    Set sumRange = ws.Range("B1:B10")
    
    ' 设置准则
    criteria = Array("A", "B", "C")
    
    ' 初始化求和结果
    sumResult = 0
    
    ' 循环遍历准则范围
    For Each cell In criteriaRange
        ' 检查当前单元格的值是否符合准则
        For i = LBound(criteria) To UBound(criteria)
            If cell.Value = criteria(i) Then
                ' 如果符合准则，则将对应的求和范围的值累加到求和结果中
                sumResult = sumResult + sumRange.Cells(cell.Row, 1).Value
                Exit For
            End If
        Next i
    Next cell
    
    ' 输出求和结果
    MsgBox "动态求和结果为：" & sumResult
End Sub

上述代码中，我们首先通过Set关键字将工作表、准则范围和求和范围分别赋值给对应的变量。然后，我们定义了一个准则数组criteria，其中包含了需要匹配的准则值。接下来，我们使用两层循环来遍历准则范围，并检查每个单元格的值是否符合准则。如果符合准则，则将对应的求和范围的值累加到求和结果中。最后，我们使用MsgBox函数输出求和结果。

这是一个简单的示例，你可以根据实际需求进行修改和扩展。在实际应用中，你可以将该代码嵌入到你的VBA宏中，以实现动态求和的功能。

腾讯云相关产品和产品介绍链接地址：