基于双条件的VBA Sum函数实现：按月份和油田汇总石油产量

嘿，作为VBA新手，这个需求完全没问题！我会一步步给你讲清楚怎么实现，代码也加了详细注释，保证你能看懂~

先给你一个快速的非VBA方案（可选） #

如果你只是需要完成求和功能，其实Excel自带的SUMIFS函数就能搞定，不用写代码：
假设你的数据在A:C列（A=油田名称，B=月份，C=石油产量），条件单元格是E1（油田选择）和F1（月份选择），那么在G1输入公式：
=SUMIFS(C:C, A:A, E1, B:B, F1)
这个公式会自动匹配两个条件并求和，新手可以先试试这个快速方案。

VBA实现方案（自动触发计算） #

如果一定要用VBA实现，比如希望条件单元格变化时自动更新结果，我们可以用工作表的Change事件来做：

步骤1：打开VBA编辑器 #

右键点击你的数据工作表标签（比如Sheet1），选择「查看代码」，就能打开VBA编辑器。

步骤2：粘贴以下代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义需要用到的变量
    Dim oilField As String
    Dim targetMonth As String
    Dim sumResult As Double
    Dim dataRange As Range
    
    ' 指定条件单元格：这里假设E1选油田、F1选月份，你可以根据自己的需求修改
    Dim conditionCells As Range
    Set conditionCells = Me.Range("E1:F1")
    
    ' 指定结果存放单元格：这里用G1，可自行修改位置
    Dim resultCell As Range
    Set resultCell = Me.Range("G1")
    
    ' 只有当我们指定的条件单元格被修改时，才执行计算逻辑
    If Not Intersect(Target, conditionCells) Is Nothing Then
        ' 获取两个条件的值
        oilField = Me.Range("E1").Value
        targetMonth = Me.Range("F1").Value
        
        ' 先清空结果单元格，避免旧数据残留
        resultCell.ClearContents
        
        ' 只有当两个条件都不为空时，才计算求和
        If oilField <> "" And targetMonth <> "" Then
            ' 假设数据在A2:C1000（表头在A1:C1），请根据你的实际数据范围修改
            Set dataRange = Me.Range("A2:C1000")
            
            ' 调用Excel的Sumifs函数计算求和，和手动写公式逻辑一致
            sumResult = Application.WorksheetFunction.Sumifs( _
                dataRange.Columns(3), _ ' 要求和的列：石油产量（对应C列）
                dataRange.Columns(1), oilField, _ ' 条件1：油田名称匹配（对应A列）
                dataRange.Columns(2), targetMonth _ ' 条件2：月份匹配（对应B列）
            )
            
            ' 把计算结果写入指定单元格
            resultCell.Value = sumResult
        End If
    End If
End Sub

代码简单解释 #

• Worksheet_Change事件：当工作表里的单元格内容变化时会自动触发这个代码
• Intersect(Target, conditionCells)：用来判断是不是我们指定的条件单元格（E1/F1）被修改了，避免无关操作触发计算
• Application.WorksheetFunction.Sumifs：直接调用Excel的求和函数，逻辑和手动写公式一样，新手更容易理解
• 加了空值判断：如果条件单元格为空，就清空结果，避免出现错误值

自定义调整提示 #

• 要是你的条件单元格不是E1/F1，修改conditionCells里的范围就行，比如改成Me.Range("B2:C2")
• 数据范围如果不是A2:C1000，就修改dataRange的范围，比如你的数据到C2000，就改成Me.Range("A2:C2000")
• 结果单元格如果不是G1，修改resultCell的范围就可以

设置好之后，你只要在条件单元格输入油田名称（比如"Ubarana"）和月份（比如"January"），结果单元格就会自动显示对应的石油产量总和啦！

内容的提问来源于stack exchange，提问作者Bardia.Alavi